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PREFAZIONE 


I personal computer sono ossi una presenza di rilievo anche 
nel mercato italiano che può’ contare su decine di migliaia 
di unita’ installate. Ovviamente una grossissima fetta e' 
costituita da guelle macchine che si possono far rientrare 
nella definizione di "Home Computer" cioè' computer 
adoperati in un ambito domestico. familiare. 

Ma viene da chiedersi perche' guesti apparecchi vengono 
acguistati e per guaii scopi vengano utilizzati. Varie 
ricerche di mercato hanno evidenziato come in Italia uno 
dei motivi principali sia guello di apprendere i concetti 
fondamentali della programmazione. Ciò' e' estremamente 
interessante e inverte la tendenza americana che vuole 
considerare sii home computer alla stregua di un videaioco 
evoluto e dotato di tastiera. 

Date le premesse e’ naturale come in Italia sia aumentata 
negli ultimi anni la esigenza di libri che trattino tutti 
gli aspetti dell'informatica ed in particolare della 
programmazione. Per ciò' che riguarda i linguaggi nei guaii 
sii home computer si "esprimono" oggi, la parte del leone 
viene svolta dal BASIC, di cui sono universalmente note le 
caratteristiche di semplicità', praticità’ ed immediatezza. 
Ma con l'evolversi delle esigenze dell'utente si pongono 
all’attenzione altri linguaggi che possono offrire 
soluzioni molto piu' vantaggiose al programmatore. Il 
risparmio di energie nella stesura di un programma si 
traduce spesso in una maggiore eleganza di scrittura ed in 
una cura per i particolari sovente trascurati in BASIC. 

Su gueste premesse e' stato sviluppato guesto libro sul 
FORTH. un astro nascente nel firmamento alguanto statico 
dei linguaggi di prosrammazione. Penso che i presi di 
guest a opera siano molteplici primo fra tutti guello di non 
essere la mera traduzione di un libro americano ma il 
prodotto dell’impegno dei due giovanissimi autori entrambi 
studenti della Facolta' di Ingegneria del Politecnico di 
Mi1 ano. 

II secondo pregio e' guello di essere un libro estremamente 
pratico che fa riferimento ad una implementazione del 
linguaggio realmente utilizzabile sui computer Commodore 
VIC 20 e CBM 64. Questa versione del FORTH e' inoltre molto 
simile a guella disponibile per altri personal computer 
come ad esempio lo ZX Spectrum. 
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Il terzo preaio» sempre importante» e' «niello di essere il 
primo testo sai FORTH stampato in italiano» anche se e' 
auspicabile che se ne possano trovare in breve tempo 
tantissimi altri. 

Non voglio «lui dilungarmi sulle carat t er i st i che del FORTH 
ne' dare un giudizio sui contenuti del libro lasciando 
«luesto compito ai lettori che penso sia' saranno 
numerosissimi e tutti molto interessati. 

Come ultima considerazione vorrei lodare ancora una volta 
gli autori che» appena ventenni e senza una specifica 
esperienza» hanno portato a compimento «luest'opera in tempi 
veramente invidiabili. Ciò' dimostra come ci siano ancora 
nelle migliori università' italiane degli elementi che 
fanno della serietà' e dell'impegno due regole fondamentali 
del loro comportamento sia scolastico sia professionale. 
Grazie a «luesto rigore i risultati» come si può' vedere da 
•mesto libro» sono conseguiti puntualmente. 


Claudio Fiorentini 
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Capitolo 1 


INTRODUZIONE 


Nonostante il Basic sia il linguaggio piu’' diffuso a 
livello di personal computer» soprattutto per la sua 
relativa facilita’’ di apprendimento e di impiego e per la 
presenza di una vastissima biblioteca di software 
disponibile» anche altri linguaggi si- stanno diffondendo» 
grazie alla loro superiorità’ rispetto al Basic in 
specifiche applicazioni. 

In questo libro tratteremo del Forth» un nuovo linsuasso di 
programmazione che» nato per applicazioni su grandi 
sistemi» può’ dare grandi soddisfazioni anche sui personal 
computer per le sue innovative caratteristiche e 
potenziai ita’. 

La versione cui faremo riferimento e’ quella sviluppata 
dalla Datatronic per il diffusissimo VIC 20 della 
Commodore» ed e’ stata implementata in due memorie ROM da 4 
Kbytes situate in un pratico cartridse da inserire 
nell'apposito alloggiamento sul retro del calcolatore. 

Uno degli aspetti che rendono il Forth particolarmente 
interessante e’ l'elevata velocita' di elaborazione» che 
rende questo linguaggio estremamente adatto all'impiego sia 
in applicazioni in tempo reale che in programmi molto 
lunghi e complessi. Per renderci conto di questo basta 
osservare la tabella di figura 1 nella quale si vede come 
il calcolatore da noi impiegato» il VIC 20» e' decisamente 
piu' veloce lavorando in Forth anziché' in Basic. Ad 
esempio per eseguire 10000 cicli F0R NEXT il calcolatore 
impiega» in Basic» 9»8 secondi» in Forth» per eseguire 
altrettanti cicli equivalenti» bastano 1»1 secondi. Altre 
positive caratteristiche sono la gestione ottimizzata della 
memoria utente» la presenza di particolari istruzioni per 
manipolare le stringhe ed una sofisticata gestione 
dell'INPUT OUTPUT dei floppy-disk. 
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PROGRAMMI DI TEST IN BASIC 


CICLI 


! ISTRUZIONI 


! TEMPO 

i 


Ciclo 

! 10 

FOR 1=1 TO 

10000 

j 

j 

9,8 

sec. 

FOR NEXT 

! 20 
i 

NEXT 


1 

1 



Addizione 

! 10 

A=2sB=3 


J 

! 

3,05 

sec - 

intera 

! 20 

FOR 1=1 TO 

10000 

! 




! 30 
! 

C=A+B sNEXT 


! 

! 



Addizione 

j 

! 10 

A=3 , 1416 s B = 

1,4142 

! 

! 

3,15 

sec. 

frazionaria 

! 20 

FOR 1=1 TO 

1000 

! 




! 30 

j 

C=A+B:NEXT 


j 

! 



j 

Mol t i p 1 i caz i one ! *10 

A=2SB=3 


! 

! 

3,88 

sec. 

int era 

! 20 

FOR 1=1 TO 

1000 

! 




! 30 
! 

C=A*BSNEXT 


! 

i 



Concat enazione 

! 10 

A*=" "s FOR 

1=1 TO 255 

j 

1,35 

sec. 


di strinahe 


20 A*=A*+' 


30 NEXT I 



















PROGRAMMI DI TEST IN FORTH 


CICLI ! ISTRUZIONI 


! TEMPO 


Ciclo ! : AAA 10000 1 DO LOOP 

! 

DO LOOP ! 


1,20 sec. 


Addizione 
con numeri 
semplici 


0 VARIABLE A 
0 VARIABLE B 
0 VARIABLE C 
: AAA 2 A ! 3 B ! 1000 
1 DO A 9 B 8 + C ! LOOP 


0,SO sec. 


Addizione 
con numeri 
dopp i 


0. 2VARIABLE A 
0.. 2VARIABLE B 
0. 2VARIABLE C 
: AAA 3.1416 A 2! 2.4142 
B 2! 1000 1 DO A 28 B 23 


2,70 sec. 


D+ C 2! LOOP 













Molti p 1icazione 
con numeri 
semp1ici 


! 0 VARIABLE A 
0 VARIABLE B 

! 

0 VARIABLE C 

! 

! : AAA 2 A ! 3 B ! 1000 
I 

! 1 DO A 3 B 3 * C ! LOOP 


Ir 40 sec. 


i 


i 


Concatenazione ! s AAA 255 1 DO 4500 I 
! 

di stringhe ! + 56 C! LOOP i 

! 


0 r10 sec. 


Pia. 1 
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Capitolo 


ORIGINI DEL FORTH 


La nascita del Forth risale al 1970 quando un noto 
programmatore americanor Charles Moore» inizio' a 
pubb 1 i c i zzare il suo nuovo linguaggio di prosr amntaz i one su 
cui lavorava sia' da alcuni anni! e' infatti noto come 
l'invenzione e la messa a punto di un linguaggio richiede 
tempi particol armeni e lunghi» soprattutto se innovativo 
come il Forth. 

Considerato da Moore un linguaggio della quarta generazione 
il Forth prende il nome dall'aggettivo inglese "fourth"» 
che significa appunto quarto. L'abbrevazione da fourth a 
Forth e' dovuta al fatto che Moore sperimentava il suo 
nuovo linguaggio su uno dei primi calcolatori interattivi: 
l'IBM -1130» che era in srado di accettare solo cinque 
caratteri identificatori. 

All'inizio il Forth e' stato impiegato soprattutto dagli 
astronomi in quanto la sua elevata velocita' di 
elaborazione lo rende estremamente adatto ad applicazioni e 
simulazioni in tempo reale. Negli anni successivi il Forth 
e' stato sempre piu' perfezionato in modo da permetterne 
l'applicazione e la diffusione anche in altri campi 
dell'informatica. 

Si stima che nel 79 i prosrammatori di Forth fossero» negli 
USA. circa 1000» e siano ossi oltre 10000. Solo 
recentemente si sono pero' rese disponibili le prime 
implementazioni del Forth non solo sui grandi sistemi ma 
anche sui personal computer piu' diffusi. 
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Capitolo 3 


DEFINIZIONE DI NUOVE PAROLE 


La prima istruzione che possiamo utilizzare del Forth e' 
VLIST. Compito di questa istruzione e' visualizzare sul 
video l'intero vocabolario del 1'interprete Forth? 
vocabolario che può' essere utilmente ampliato dal 
programmatore. 

Disitiamo dunque VLIST seguito da <RETURN>. Sullo schermo 
televisivo scorreranno le parole chiave del linguaggio? 
scorrimento che potrà' essere rallentato tramite il tasto 
<CTRL> e bloccato con il tasto <RUN/STOP>. 

Dopo aver visto il vocabolario ripuliamo lo schermo tramite 
l'usuale tasto <CLR> e impariamo ad usare l'istruzione " 
che serve a visualizzare una serie di caratteri 
alfanumerici racchiusa tra i due apici. 

Esempio! 

Digit andò: 


." CIAO " <RETURN> 


sullo schermo apparirà' 


la scritta! 


CIAO OK 


Si noti come le parole-chiave siano separate da uno spazio? 
che permette al 1'interprete Forth di distinguere le varie 
istruzioni? e che alla fine di ogni elaborazione compaia 
sullo schermo la scritta OK. 

Vediamo ora? tramite alcuni esempi? come ampliare il 
vocabolario. La procedura da seguire per definire una nuova 
parola e' la seguente! 

si di a ita 


! nome-istruzione definizione ? 
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Esempio 


s Al IL MARE " ; <RETURN> 


Con l'istruzione <:> predisponiamo l'interprete Forth ad 
accettare una nuova parola; Al» che disitiamo preceduto e 
seguito da uno spazio» e' il nome che abbiamo assegnato 
alla nuova parola. La parte rimanente dell'istruzione 
rappresenta ciò' che deve essere eseguito dal calcolatore. 
L’istruzione <»> finale fa ritornare il calcolatore nel 
modo operativo normale. 

In «mesto modo abbiamo creato la nuova parola Al che» ogni 
volta che verrà’ impiegata» fara’ comparire sullo schermo 
la scritta IL MARE. Infatti digitando: 


Al <RETURN> 


apparira' 


IL MARE OK 


Per verificare che la nuova parola Al e’ parte integrante 
del vocabolario dell'interprete Forth» impieghiamo ora 
l'istruzione ULIST già' precedentemente incontrata. 

Digit i amo dun«iue: 


VLIST <RETURN> 


apparira' 

A-1 CLOAD CSAVE 
B. H. DUMP 
K J I' UM* 
ecc . 

ecc. 


•12 



confermando come la parola Al sia stata assunta 
dal 1'interprete Forth. 

Continuando con sii esempi definiamo altre nuove parole 
sesuendo la prassi che abbiamo appena imparato. 

0isitiamo dunque! 


s A2 ." LA NAVE " i <RETURN> 

: A3 .“ BAGNA " 5 <RETURN> 
s A4 ." ATTRAVERSA " f <RETURN) 

Premendo nuovamente VLIST il calcolatore visualizzerà': 


A4 A3 A2 Al 
CLOAD CSAVE 
B. H. DUMP 
K J I' UM« 
ecc . 

confermando come pure queste altre nuove parole siano state 
assunte dal 1’interprete nel proprio vocabolario. 

A questo punto definiamo un’altra parola cosi’ strutturata! 


: B1 A2 A4 Al ! <RETURN> 


Se ora disitiamo B1 apparirà’ sul video: 


LA NAVE ATTRAVERSA IL MARE OK 


E' interessante notare come la nuova parola B1 sia stata 
definita in base alle tre parole A2 A4 Al che 
orisinariamente non erano presenti nell'interprete Forth. 
Continuando nella creazione di nuove parole, definiamo pure 
B2i 


: B2 Al A3 A2 t <RETURN) 
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Sul video apparirà' la scritta: 


IL MARE BAGNA LA NAVE OK 

I semplici esempi appena visti ci mostrano come sono 
strutturati i programmi in Forth: non esiste un limite alla 
concatenazione delle parole ed inoltre una stessa parola 
(vedi Al A2 A3 A4 ) può' essere utilizzata in piu' di un 
programma. 

Tornando ai nostri esempi precedenti» nel caso si siano 
commessi degli errori nell'inserimento delle istruzioni» 
potremo utilmente impiegare la parola-chiave FORGET. 

Ad esempio» se volessimo cancellare l'ultima parola 
definita» B2» dovremmo operare in «mesto modo: 


FORGET B2 (RETURN) 


Fatto «mesto» la parola B2 verrà' tolta dal vocabolario. 
Bisogna pero' tener presente che l'istruzione FORGET 
cancella dal vocabolario» oltre all'istruzione desiderata» 
anche tutte guelle che sono state immesse dopo. Infatti» 
eseguendo FORGET A3» anche le parole A4 e 81 verranno 
cancellate» in guanto definite posteriormente ad A3. Un 
VLIST ci confermerà' tutto «mesto: 


VLIST (RETURN) 


appariranno: 


A2 Al CLOAD 
CSAVE B. H. 
DUMP K J I' 
ecc. 

ecc. 


Prima di procedere oltre resettiamo il sistema con 
l'istruzione COLD che reinizzializza il calcolatore 
riportandolo alle condizioni seguenti l'accensione. 


14 



REGISTRAZIONE VOCABOLARIO 


Se> una volta introdotte delle nuove parole-chiaver 
vogliamo conservarle anche dopo lo spegnimento del 
calcolatore, possiamo registrarne il nome e la definizione 
su cassetta impiegando il comando CSAVE. 

Digitato il comando CSAVE sul video apparirà' la scritta! 
PRESS RECORD 8 PLAY ON TAPE 

e, premuti contemporaneamente i due tasti del reeistratore, 
le scritte! 

OK 

SAVING 

confermeranno l'inizio della registrazione. Alla fine della 
resistrazione stessa apparirà' infine la scritta! 

OK 

Per ricaricare in memoria delle parole memorizzate su 
cassetta va invece impiegato il comando CLOAD, posizionando 
prima esattamente il nastro. 

Il calcolatore risponderà'! 

PRESS PLAY ON TAPE 

e la fine del caricamento sara' confermata dalla scritta* 

OK 

Nel caso si siano verificati degli errori in fase di 
caricamento o di lettura, nella posizione PI dello Stack 
sara' presente il valore 1 e apparirà' la scritta* 

? LOAD ERROR 

Se le operazioni di caricamento o lettura si sono svolte 
invece correttamente, nella posizione PI dello Stack sara' 
presente il valore 0. 
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Volendo associare ad una registrazione un none> si impiega 
l'istruzione EXPECT nel seguente modo: 


addr n EXPECT <RETURN) nome <RETURN> 


dove 

addr indica l'indirizzo in cui memorizzare il nome 

n indica la lunghezza del nome 

nome e' nome assegnato alla resistrazione 


Abbiamo cosi' 
memoria un 
resist razione 


memorizzato 
nome? che 
nel seguente 


in una 
potrà' 
modo s 


particolare zona 
essere associato 


della 

alla 


addr n NAME CSAVE <RETURN> 


per la lettura: 

addr n NAME CLOAD <RETURN> 


Esempio: 


Volendo registrare la definizione delle parole introdotte 
associando loro il nome LUNA» digiteremo: 

1024 4 EXPECT <RETURN> LUNA < RETURN> 

1024 4 NAME CSAVE <RETURN> 


Potremo leggere la reaistrazione di nome LUNA digitando: 


1024 4 EXPECT <RETURN> LUNA <RETURN> 

1024 4 NAME CLOAD <RETURN> 
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Capitolo 4 


FUNZIONAMENTO DELLO STACK 


Per poter proficuamente lavorare con il Forth e' 
necessario aver ben chiaro il concetto di Stack in quanto* 
a differenza di altri linguaggi* nel Forth essa e' 
facilmente accessibile al programmatore. 

Lo Stack e’ una zona della memoria*, che inizia alla 
locazione 4 e termina a 116* destinato a contenere i numeri 
che vengono utilizzati nei calcoli. 

Per il suo funzionamento potrebbe essere paragonato ad una 
pila di piatti in cui ogni piatto corrisponde ad un numero: 
immaginiamo ogni numero che immettiamo nel calcolatore come 
l'aggiunta di un piatto alla pila. Dunque* se alla pila 
aggiungiamo piatti* questa si alza <e* per analogia* lo 
Stack si riempie di numeri). Immaginiamoci ancora per un 
attimo di fronte a questa pila di piatti con la necessita’ 
non di aggiungerne* ma di prenderne uno. Per forza di cose 
siamo costretti a prendere l'ultimo alla sommità': 
analogamente* se richiediamo un numero allo Stack* questo 
ci fornirà' l’ultimo che abbiamo introdotto. 

Per meglio chiarire il concetto facciamo un esempio: 
scrivendo 


12 3 4 5 6 (RETURN > 


i numeri verranno memorizzati nello Stack uno di seguito 
all'altro. 

Per verificarlo leggiamone dunque il contenuto tramite 
l’istruzione dot (che si ottiene premendo semplicemente il 
tasto <.>>: digitando per sei volte i tasti <•> e <RETURN>* 
verranno visualizzati i numeri 654321 in ordine 
inverso rispetto all'immissione. 

Nelle figure che seguono viene data una rappresentazione 
grafica dello Stack e delle operazioni eseguite su di esso: 
ogni quadratino, indicato con pi p2 p3 ...* rappresenta una 
posizione dello Stack. 
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p-1 p2 p3 p4 p5 p6 p7 p8 p9 pIO pi 1 


Dalla figura 2 vediamo come lo Stack sia vuota. 


tasti da digitare ! video !p"1 p2 

i i 


p3 p4 p5 p<S 


1 <RETURN> 


2 <RETURN) 


3 <RETURN> 


4 <RETURN) 


5 <RETURN> 


6 <RETURN> 


OK ! 4 ! 3 


OK ! 5 ! 4 


OK ! 6 

i 


4 ! 3 

i 
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< RETURN > 


! 

OK ! 6 

j 


. <RETURN> 

. <RETURN> 

. <RETURN> 

. < RETURN > 

. <RETURN> 


5 ! 4 

i 


; i 

3 ! 2 ! 1 


6 OK 


5 OK ! 4 


i 

3 ! 


4 OK 


3 OK 


2 OK 


1 OK 


Fis. 3 


La figura 3 e' la rappresentazione sequenziale delle 
operazioni fatte fino ad ora: a sinistra sono indicate le 
istruzioni digitate» al centro ciò 1 ' che appare sul video e 
a destra il conseguente contenuto dello Stack. 

E' interessante notare come i nuner i r mari mano che vengono 
immessi» occupano inizialmente la posizione PI spostando 
verso destra quelli sia' presenti nello Stack! all'inizio 
lo Stack e' vuoto ed immettendo il numero 1 esso va ad 
occupare la posizione PI. Con l'introduzione del numero 2» 
l'I passera' nella posizione P2 ed il 2 sara' memorizzato 
in PI. 
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Analogamente avverrà' con i numeri 3 4 5 6 giungendo cosi' 
alla situazione prospettata in figura 4 dove vediamo che in 
PI abbiamo l'ultimo numero immesso (il 6)* mentre nella 
posizione piu' a destra* il primo < 1 ' 1 ) - 


pi p2 p3 p4 p5 p6 p 7 p 8 p9 p 10 p 11. 


!!!!!!!!!!! 
6 ! 5 ! 4 ! 3 ! 2 ! 1 ! ! ! ! ! ! 

! i ! ! ! ! ! ! ! ! ! 


Fig. 4 


Inversamente a guanto appena visto* se viene richiesto un 
numero allo Stack tramite l’istruzione dot* esso fornirà' 
quello contenuto in PI* e cioè' l'ultimo immesso* spostando 
gli altri di una posizione verso sinistra. 
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Capitolo 5 


PARTICOLARI ISTRUZIONI LEGATE ALLO STACK 


Parliamo ora di alcune importanti istruzioni che permettono 
di modificare la posizione dei numeri nello Stack e di 
agire su di essi. Ove necessario verrà' data la 
rappresentazione del contenuto dello Stack prima e dopo 
l'uso dell'istruzione. 


. (dot) toglie dallo Stack il valore contenuto in PI e 
lo visualizza sullo schermo. Sposta poi tutti gli 
altri valori di una posizione verso sinistra? 

DROP (scarica) analogamente all'istruzione precedente 
toglie dallo Stack il valore contenuto in PI senza 
pero' visualizzarlo? 

DUP (duplica) legge il contenuto di PI. sposta tutti i 
valori contenuti nello Stack di una posizione verso 
destra, e re immette guanto letto in PI. 


pi p2 p3 p A p5 p 6 p 7 p8 p9 pIOpII ... . 


7 ! 2 ! 5 

i i 


9 ! A 

i 


F i a . 5 


Dalla situazione rappresentata in figura 5. si passa, 
con il DUP a suella di figura 6. 


pi p2 p3 pA p5 p6 p7 p8 p9 pIO p'1'1 ... . 


!!!!!!! 
7!7!2!5!9!4! ! 

!!!!!!! 


! f 

j ; 

I ! 


F i g . 6 
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OVER (sopra) lesse il contenuto di P2» sposta tutti i 
valori contenuti nello Stack di una posizione verso 
destra e reimmette quanto letto in PI. 


Pi 

p2 

p 3 

p A 

p5 pó 

p 7 

pS 

p 9 

p 10 p 11 . . 

■ ■ 

! 7 

j 

1 

! 2 
j 

| 

! 5 

j 

j 

! 9 

j 

! j 

! A ! 

j ; 

j 

j 

! 

j 

I 

1 

! 

j 

1 

1 1 1 

! ! ! 

; ; ; 

! 

j 

! 

Rappresent az 
(fisura 8) 1 

i one 
r uso 

f i s 

dello Stack prima (fisura 7) 
dell'istruzione OVER. 

. 7 

e 

pi 

p2 

p3 

p4 

p5 p6 

p7 

p8 

p9 

Pio Pii .. 

• • 

j 

! 2 
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F i 9 

. 8 

(scambia) scambia tra loro i 

contenuti di PI e 

P2 

pi 

p2 

p3 

p4 

p5 p6 

p7 

p8 

p9 

Pio Pii .. 

■ • 

1 

! 7 

j 

j 

! 2 
i 

! 
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! 

! 9 

1 f 

! A ! 

; ; 

1 

j 

! 



! ! ! 

i i ; 

! ! ! 

! 

! 

i 


Fis. 9 


.Rappresentazione dello Stack prima (fisura 9) e dopo 
(fisura 10) l'uso dell'istruzione SWAP. 


22 






















pi p2 p3 p 4 p5 p 6 p7 p 8 p9 p 10 p 11 


! ! ! ! 

2 ! 7 ! 5 ! 9 ! 4 
! ! ! ! 


F i s . 10 


ROT (ruota) trasferisce il valore contenuto in P3 in PI e 
sposta i valori che erano contenuti in PI e P2 
rispettivamente in P2 e P3. 


pi p2 p3 p4 p5 p 6 p 7 p8 p 9 p 1 0 p 1 1 .. . . 



Fi 3. 11 


Rappresentazione dello Stack prima (figura 11) e dopo 
(figura 12) 1"uso dell'istruzione ROT. 


pi p2 p3 p4 p5 pó p7 p8 p9 p 10 pii ... . 


! ! ! ! 

5 ! 7 ! 2 ! 9 ! 4 

! ! ! ! 


Fis. 12 

2DR0P (scarica) toglie dallo Stack il numero doppio 
contenuto in PI P2. Sposta poi tutti gli altri valori 
di due posizioni verso sinistra; 


2DUP (duplica) legge il contenuto di PI e P2» sposta tutti 
i valori contenuti nello Stack di due posizioni verso 
destra? e reimmette guanto letto in PI e P2. 
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pi p2 p3 p4 p5 pó p 7 p8 p9 pIO pii 


j f 

! 7 ! 2 

! j 

! 

! 5 

j 

! 9 

! j 

! A ! 

! ! ! 

; ; ; 

! ! ! 

| I 

; ; 

! ; 

j 

! 

! 

l 

j 

! 







Fis 

. 13 

Rappresent az 
(fisura 14) 

ione dello 

1'uso dell' 

Stack prima (fisura 
istruzione 2DUP. 

13) 

e dopo 

p-1 p2 

p3 

p4 

p5 p6 

p7 p8 p9 

Pio Pii 


. . 

! I 

! 7 ! 2 
; ; 

! 

! 7 
! 

i 

! 2 
! 

! 5 ! 9 

i ; 

! ! ! 

! A ! ! 

I j I 

; ; 

j ; 

! j 

! 

I 

j 

! 

! 

! 


Fis. 14 


20VER (sopra) lesse il contenuto di P3 e P4r sposta tutti i 
valori contenuti nello Stack di due posizioni verso 
destra e reimmette guanto letto in PI e P2. 


Pi P2 p3 P4 P5 p6 p 7 P8 P9 p10 P11 ... . 



Fis. 15 


Rappresentazione dello Stack prima (fisura 15) e dopo 
(figura 16) l'uso dell'istruzione 20VER. 
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P'1 p2 p3 p4 p5 p6 p7 p8 p9 p 10 pii 


! 5 ! ?! 7 
! ; ; 
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Il ! ! 

! 5 ! 9 ! 4 ! 

! ! ! ! 
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; ; 
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F i g 

. 16 

2SWAP (scambici) 
di P3 e P4 e 

scambia i contenuti 
v iceversa- 

d i 

P-1 e P2 

con 

quelli 

p 1 p 2 p 3 

p 4 

pS pó p 7 p8 

p9 

p-10 p-11 

.. 

- ■ 

! ! ! 

! 7 ! 2 ! 5 

l ; ; 

j 

! 9 
! 

! 4 ! ! ! 

! ! ! ! 
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; 

; 

; ; 

; j 

; j 

; 

; 
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1 

j 

! 






Fig 

. -17 

Rappresentaz 
(fisura 18) 

ione dello Stack prima (figura 
l'uso dell'istruzione 2SWAP. 

17) 

e dopo 

p-1 p2 p3 

p4 

pS p6 p 7 pB 

p9 

p-10 Pi 1 

. . 

■ - 

! ! ! 

! 5 ! 9 ! 7 

! 1 ! 

! 

! 2 
i 

! ! ! ! 

! 4 ! ! ! 

ili; 

! 

! 

i 

! j 

; ; 

; ; 

j 

; 

; 

j 

! 

; 


Fi». 18 


2R0T (ruota) lesse i valori contenuti in PS e P6» sposta i 
valori contenuti in PI P2 P3 e P4 di due posizioni 
verso destra e re immette quanto letto in PI e P2. 






































pi p2 p3 p4 p5 p6 p7 p8 p9 pIO pii 


! j ; 

! 7 ! 2 ! 5 

! ! ! 

I 

! 9 

I 

! ! ! ! 

4 ! 3 ! -1 ! ! 

! ! ! ! 

! ! ! ! 

! ! ! ! 

! ! ! ! 




Fig. 19 

Rappresentaz 
(figura 20) 

i one 

1 r uso 

della Stack prima (figura 19) e dopo 
dell'istruzione 2R0T. 

pi p2 p3 

p4 

p5 p 6 p7 p8 p9 

pIO Pii ... . 

! ! ! 

! 4 ! 3 ! 7 

! ! ! 

! 2 ! 

! ! ! ! 

5 ! 9 ! 1 ! ! 

! ! ! ! 

! ! ! ! 

! ! ! 1 

! ! ! ! 


Fis. 20 
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Capitolo 6 


MEMORIZZAZIONE DEI NUMERI 


Nel Forth e' possibile operare sui numeri in cinque diversi 
modi a seconda della precisione di calcolo necessaria. 
Infatti si possono impiegare numeri a singola e doppia 
precisione. rispettivamente con e senza segno, e numeri a 
tripla precisione senza segno. la cui differenza consiste 
nel numero di bytes utilizzati per la memorizzazione. 

Come ben sappiamo i calcolatori non operano su numeri in 
base dieci ma bensì' su numeri binari. Se infatti vogliamo 
introdurre nella memoria un numero decimale. ad esempio 
189. esso verrà' memorizzato dopo essere stato convertito 
nell'equivalente binario 10111101. 

Volendo conoscere l'equivalente binario di un numero in 
base dieci abbiamo a disposizione, nel vocabolario Forth. 
l'apposita istruzione B» utilizzabile per i numeri compresi 
tra -32768 e +32767. Se infatti carichiamo nello Stack il 
numero 189 e poi lo estraiamo con l'istruzione B. otteniamo 
il valore 10111101. 

Per poter capire le differenze e l'impiego dei cinque 
diversi tipi di numeri. e' necessario aprire ora una 
piccola parentesi sull'aritmetica binaria. 


Esaminiamo un numero in base dieci come ad esempio 5603! 
ogni cifra ha un valore particolare a seconda della sua 
posizione nel numero. 


5603 


IIII — 

unita' 

III 


III- 

deeine 

II 


n- 

cent inaia 

i 


i- 

misiiaia 


In sostanza il numero 5603 potrebbe essere scritto come: 
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5603 

0 




IIII — 

3*10 = 

3 

+ 

I 

III 




I 

III 

1 



I 

III- 

0*10 = 

0 

■f 

I 

II 




I 

II 

2 



I 

II- 

6*10 = 

600 

+ 

I 

I 




I 

I 

3 



I 

I- 

5*10 = 

5000 

SS 

I 


I 

I 

5603 I 


Abbiamo cioè' moltiplicato osni cifra del numero per una 
potenza crescente di dieci. 

Se vogliamo operare con una base diversa da quella 
decimale, useremo le stesse convenzioni aia' impiegate! ad 
esempio, lavorando con il sistema binario (che usa come 
base 2 e come cifre 0 e 1). avremo una rappresentazione 
analoga alla precedente. 

Il numero binario 11010 (equivalente a 36 in base decimale) 
può’ essere scritto! 


11010 


0 


imi— 

0*2 = 

0 


I 

ini 




I 

mi 

1 



I 

mi— 

1*2 = 

2 

+ 

I 

m 




I 

m 

2 



I 

m - 

0*2 = 

0 

+ 

I 

n 




I 

n 

3 



I 

ii - 

1*2 * 

8 

•f 

I 

i 




I 

i 

6 



I 

i - 

1*2 = 

16 

ss 

I 


I 

-1 

I 

36 I 
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Notiamo conte in quest'ult imo disegno» il numero venga 
scomposto in cifre moltiplicate per delle potenze crescenti 
di due anziché' di dieci. 

Vediamo ora come calcolare l'equivalente decimale di un 
numero binario composto solo dalle cifre 1. La formula di 
conversione e': 


Nbc 

Ndec. =2 - 1 

ove : 

Ndec. : numero decimale 

Nbc ! numero cifre del numero binario 


Ad esempio il numero binario 111 equivale as 


3 

2 -1 = 8-1 = 7 


Infatti» impiegando sempre lo schema delle tabelle 
precedenti» si ha s 


111 





0 



III— 

1*2 = 

1 

+ I 

II 



I 

II 

1 


I 

II— 

1*2 = 

2 

+ I 

I 



I 

I 

2 


I 

I- 

1*2 = 

4 

= I 


I 

-1 

I 

7 I 


Nel calcolatore un numero binario viene memorizzato 
utilizzando un bit per ogni cifra: da quanto visto 
precedentemente potremo dunque concludere che un byte può' 
contenere al massimo il numero binario 11111111 che» 
convertito in base dieci utilizzando la formula appena 
vista» corrisponde a: 
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8 

2 -1 = 256—1 * 255 


Esaminiamo ora dettagliatamente i vari modi utilizzati 
dal 1'interprete Forth per memorizzare i numeri. 


NUMERI SEMPLICI CON IL SEGNO 

Vengono memorizzati utilizzando due bytesr ma uno dei 16 
bits disponibili e' impiegato per il segno. I bits per la 
memorizzazione del valore del numero sono perciò' 15 ed 
essendo! 


15 

2 -1 = 32767 


il numero deve essere compreso tra -32768 e +32767. In 
tutti sii esempi fatti fino ad ora sono stati utilizzati 
numeri semplici con il segno che» come abbiamo visto, 
possono essere caricati nello Stack semplicemente con il 
tasto (RETURN). e visualizzati sullo schermo con 
l'istruzione dot (ottenuta con il tasto (.)>. 


NUMERI SEMPLICI SENZA SEGNO 

Vengono memorizzati utilizzando 16 bits ovvero due bytes. 
Il valore massimo che possono assumere guesti numeri e' 
quindi ! 

16 

2 -1 == 65535 


Vanno immessi nello Stack digitando il tasto <RETURN> dopo 
i1 numero. 

Per visualizzare sullo schermo un numero semplice senza 
segno contenuto nella posizione PI dello Stack» si ricorre 
all'istruzione U. (abbreviazione di unsi sned - senza 
segno). 


NUMERI DOPPI CON IL. SEGNO 

Vengono memorizzati utilizzando 4 bytes ma uno dei 32 bits 
disponibili e' utilizzato per il segno. 
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I 31 bits restanti permettono quindi l'utilizzo di valori 
compresi tra -2.147.483.648 e +2.147.483.647. Infatti: 


31 

2 -1 = 2.147.483.647 


I numeri doppi possono essere caricati nello Stack 
semplicemente interponendo tra le loro cifre* in una 
qualsiasi posizione* il punto decimale e premendo il tasto 
< RETURN >. 

Ad esemplo il numero 257 può' essere caricato nello Stack 
come numero doppio* indifferentemente in uno dei seguenti 
mod i : 


257. <RETURN> 
25.7 <RETURN> 
2.57 <RETURN> 
.257 <RETURN> 


A differenza dei numeri semplici* l'interprete Forth 
assegna ai numeri doppi non una ma due posizioni nello 
Stack. Questo e' interessante perche'* in realta'* un 
numero doppio viene in sostanza considerato come formato da 
due numeri semplici. 

L'interprete Forth carica nello Stack i numeri doppi 
spezzandoli in due numeri semplici. Esempio: 

Caricando il numero 86212 come numero doppio* cioè' 
digit andò : 


86212. <RETURN> 


verrà' in realta’ immesso* nella posizione PI dello Stack 
il numero semplice con segno 1* mentre nella posizione P2 
il numero semplice senza segno 20676. L’operazione compiuta 
dal 1’interprete per ottenere questi due numeri e' la 
seguente : 


31 



1) divide il numero doppio per 65536 <2 16) 

2) carica il quoziente in P2» 

3) carica il resto in PI. 


Per richiamare un numero doppio contenuto nello Stack si 
impiega l'istruzione D. seguita da <RETURN>. 


NUMERI DOPPI SENZA SEGNO 

Vengono memorizzati utilizzando 4 bytes ovvero 32 bits. Il 
valore massimo che possono assumere e' dunque! 


32 

2 -1 = 4.294.967.295 


Vanno immessi nello Stack con la stessa procedura 
utilizzata per i numeri doppi con segno. E' possibile 
eseguire delle operazioni con questi numeri ma non esistono 
delle istruzioni specifiche per toglierli dallo Stack. 


NUMERI TRIPLI SENZA SEGNO 

Vengono memorizzati utilizzando 6 bytes ovvero 48 bits. Il 
valore massimo che possono assumere e' dunque» 


48 

2 -1 = 2.814E14 


Pure con i numeri tripli 
operazioni» ma non esistono 
immetterli o toglierli dallo 


e' poss ibile 
specifiche 
St ack . 


eseguire delle 
istruzioni per 


A conclusione di questo capitolo ci sembra importante 
riesaminare il concetto di Stack! esso e' costituito 
semplicemente da un insieme di bytes i cui contenuti 
possono essere scambiati tra loro utilizzando le istruzioni 
viste nel capitolo precedente. Lo Stack e' formato da 112 
bytes ed ognuna delle sue posizioni e' costituita da due 
bytes. 
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Tutte le istruzioni che abbiamo finora incontrato sono 
semplicemente dei modi codificati per asire sul contenuto 
dei bytes dello Stack indipendentemente dal loro contenuto. 
Per esempio possiamo caricare due numeri semplici e 
leggerli come un sinsolo numero doppio o operare uno SWAP 
sui due numeri che costituiscono un numero doppio ottenendo 
cosi' un valore completamente diverso da quello originario. 
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Capitolo 7 


OPERAZIONI MATEMATICHE 


Come abbiamo visto nei capitoli precedenti» osn i valore 
immesso nel calcolatore viene memorizzato nello Stack sul 
■male e' possibile agire con le varie istruzioni fin'ora 
incontrate. In «mesto capitolo parleremo di altre 
importanti istruzioni agenti sui numeri contenuti nello 
Stack: le operazioni aritmetiche» relazionali e logiche. 

E' pero' prima necessario sapere che l'interprete Forth 
opera in un particolare tipo di notazione matematica» detta 
RPN (reverse Polish notation)» che presenta innumerevoli 
vantaggi ed e' impiegata in parecchi sistemi elettronici 
guaii» ad esempio» i compilatori Pascal e le calcolatrici 
della Hewlett Packard. Dall'esempio seguente possiamo 
dunque osservare come operare in RPN eseguendo una somma 
tra due numeri. 

La sequenza di operazioni da compiere e' la seguente: 


tasti da digitare ! video ! contenuto dello Stack 

j ; 


5 RETURN 



7 RETURN 

+ RETURN 



I 

i 


OK 


OK 


l 


7 ! 5 

l 


12 


. RETURN 


! 

! 12 OK 


Fig. 21 
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Si noti che si e' scritto 


5 7 + 
e non 
5 + 7 

in «manto 1'interprete operar come sia' dettor in RPN. 
Alcuni vantassi presentati da questo, tipo di notazione 
matematica sono la massi or velocita' di immissione dati e 
la possibilità' di scrivere ad esempio un'equazione 
immettendo prima tutti i numeri e poi tutti i sesni 
operazionali. 

Ad esempio la semplice equazione! 

4-2* 7+5*(2+6) 
andra' immessa come! 

427526 + * + * — 

In sostanza> ricordando la struttura dello Stack» in RPN si 
opera immettendo prima i numeri e poi i segni operazionali 
tenendo conto che essi agiscono sempre sul contenuto delle 
posizioni PI e P2 dello Stack» 


OPERAZIONI ARITMETICHE 


Parliamo dunque delle operazioni aritmetiche disponibili e 
del loro impiego a seconda del tipo di numeri impiegati» 


Numeri semplici 

Le operazioni matemetiche eseguibili con i numeri semplici 
chei come ricordiamo! vengono memorizzati occupando due 
bytesi sono le seguenti! 

+ (somma) esegue la somma dei due numeri contenuti in 

P2 e P'I mettendo il risultato cosi' ottenuto in PI 
e spostando tutti i valori contenuti nello Stack di 
una posizione verso sinistra. 

(differenza) esegue la differenza tra i due numeri 
contenuti in P2 e PI mettendo il risultato cosi' 
ottenuto in PI e spostando tutti i valori contenuti 
nello Stack di una posizione verso sinistra. 
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# Prodotto) esegue il prodotto tra i due numeri 

contenuti in P2 e PI mettendo il risultato cosi' 
ottenuto in P'1 e spostando tutti i valori contenuti 
nello Stack di una posizione verso sinistra. 

/ (rapporto) esegue il rapporto tra i due numeri 

contenuti in P2 e PI mettendo il risultato cosi' 
ottenuto in PI e spostando tutti i valori contenuti 
nello Stack di una posizione verso sinistra. 

/MOD (rapporto) esegue il rapporto tra i due numeri 

contenuti in P2 e PI. Il quoziente verrà' 
memorizzato in PI ed il resto in P2. 

*/ esegue il prodotto tra i numeri contenuti nelle 

posizioni P3 e P2 dello Stack» divide il risultato 
per il valore di PI mettendo il quoziente in PI e 
sposta tutti i valori contenuti nello Stack di due 
posizioni verso sinistra. 

#/MOD esegue il prodotto tra i numeri contenuti nelle 

posizioni P3 e P2 dello Stack» divide il risultato 
per il valore di P'1 mettendo il quoziente in PI ed 
il resto in P2» sposta infine tutti i valori 
contenuti nello Stack di una posizione verso 

sinistra. 

MOD esegue il rapporto tra P2 e PI scrivendo il resto 

in PI e sposta il contenuto dello Stack di una 

posizione verso sinistra. 

+~ legge il valore di PI» gli attribuisce il segno di 

P2 e» dopo aver spostato il contenuto dello Stack 
di una posizione verso sinistra» scrive il 

risultato in P'1. 

ABS Fornisce in PI il valore assoluto del numero ivi 

precedentemente contenut o. 

MINUS cambia il segno al valore contenuto in PI. 


Numer i doppi 

Le operazioni matemetiche eseguibili con i numeri doppi 
che» come ricordiamo» vengono memorizzati occupando quattro 
bytes» sono le seguenti: 
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D+ (somma) esegue la somma dei due numeri doppi 

contenuti in PI P2 e P3 P4» mettendo il risultato 
cosi’ ottenuto in PI P2 e spostando tutti i valori 
contenuti nello Stack di due posizioni verso 

sinistra. 

D+- lesse il numero doppio contenuto in PI P2; gli 

attribuisce il segno di P3 e. dopo aver spostato il 
contenuto dello Stack di due posizioni verso 

destra, scrive il risultato in P'1 P2. 

DABS Fornisce in PI P2 il valore assoluto del numero 
doppio ivi precedentemente contenuto. 

DMINUS cambia il segno al valore contenuto in P'1 P2. 


Operazioni miste 

Con "operazioni miste" si intendono le operazioni eseguite 

tra numeri di diversa precisione. Esse sono! 

M* esegue il prodotto tra i due numeri semplici con 

segno contenuti in P'1 e P2 ottenendo un numero 
doppio con segno che viene memorizzato in PI P2. 

M/ esegue il rapporto tra il numero doppio con segno 

contenuto in P2 P3 ed il numera semplice con segno 

conterfuto in PI. memorizzando il quoziente ed il 

resto rispettivamente in PI e P2 come numeri 
semplici con segno’ infine sposta il contenuto 
dello Stack di una posizione verso sinistra. 

M*/ Moltiplica il numero doppio con segno contenuto in 

P3 P4 con il numero semplice con segno contenuto in 
P2. ottenendo un numero triplo che viene a sua 
volta diviso per il numero semplice senza segno 
contenuto in PI. Il risultato e' un numero doppio 

con segno che viene caricato in PI P2. Infine viene 

spostato il contenuto dello Stack di due posizioni 
verso sinistra. 
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M/MOD divide il numero doppio senza segno contenuto in P2 
P3 con il numero semplice senza segno contenuto in 
PI. il quoziente viene memorizzato in PI P2 come 
numero doppio senza segno mentre il resto e' un 
numero semplice senza segno che viene caricato in 
P3. 

U* moltiplica i due numeri semplici senza segno 

contenuti in PI e P2 memorizzando il prodotto in PI 
P2 come numero doppio senza segno. 

U/ esegue il rapporto tra il numero doppio senza segno 

contenuto in P2 P3 ed i1 numero semplice senza 
segno contenuto in PI memorizzando il quoziente ed 
il resto come numeri semplici senza segno 

rispettivamente in PI e P2. Infine sposta il 
contenuto dello Stack di una posizione verso 
sinistra. 


UM*/ Moltiplica il numero doppio senza segno contenuto 
in P3 P4 con il numero semplice senza segno 

contenuto in P2 ottenendo un numero triplo che 
divide per il numera semplice senza segno contenuto 
in PI. Il risultato e' un numero doppio senza segno 

che viene caricato in PI P2. Infine viene spostato 

il contenuto dello Stack di due posizioni verso 

sinistra. 

T# moltiplica il numero doppio senza segno contenuto 

in P2 P3 con il numero semplice senza segno 

contenuto in PI? il numero triplo senza segno cosi' 
ottenuto viene memorizzato in PI P2 P3. 

T/ divide il numero triplo senza segno contenuto in P2 

P3 P4 con il numero semplice senza segno contenuto 
in PI? il numero doppio senza segno cosi' ottenuto 
viene memorizzato in PI P2. Infine viene spostato 
il contenuto dello Stack di due posizioni verso 

sinistra. 


OPERAZIONI RELAZIONALI 


Nel Forth gli operatori relazionali agiscono sul contenuto 
delle posizioni PI e P2 dello Stack, memorizzando in PI il 
risultato e spostando di una posizione verso sinistra il 
contenuto dello Stack. La condizione di verità' e' espressa 
dal valore 1, mentre quella di falso dal valore 0. 
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= lesse i contenuti di PI e P2 memorizzando in PI il 

valore 1 se sono usuali» 0 se sono diversi. 

> lesse il contenuto di PI e P2 memorizzando in PI il 

valore 1 se P2>P1 mentre il valore 0 se P2<=P1. 

< lesse il contenuto di P'1 e P2 memorizzando in PI il 

valore 1 se P2<P1 mentre il valore 0 se P2>==P1. 

0= lesse il contenuto di PI e vi memorizza i valori 1 

o 0 a seconda che il valore orisinariamente 

contenuto fosse usuale o diverso da zero. 

0< lesse il contenuto di PI e vi memorizza i valori 1 

o 0 a seconda che il valore orisinariamente 

contenuto fosse minore o maggiore usuale a zero. 

MIN memorizza in PI il minore dei due valori contenuti 

in PI e P2» spostando poi il contenuto dello Stack 
di una posizione verso sinistra. 

MAX memorizza in P'I il maggiore dei due valori 

contenuti in PI e P2 spostando poi il contenuto 
dello Stack di una posizione verso sinistra. 


OPERAZIONI LOGICHE 


Nel Forth sii operatori lesici agiscono sulle due ultime 
posizioni dello Stack intervenendo su osni singolo bit. Il 
risultato dell'operazione (0 oppure 1) viene memorizzato 
nella posizione PI. 

Gli operatori logici del Forth sono! 


AND memorizza in PI il risultato dell'operazione logica 

AND eseguita tra i singoli bits di PI ed i 
corrispondenti bits di P2. 

Nella seguente tabella di verità' della funzione 
AND sono rappresentate le diverse coppie di valori 
possibili <A e B) ed il rispettivo risultato logico 
<C>. Se ad esempio eseguiamo l'AND sui numeri 135 e 
157 che corrispondono ai numeri binari! 
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descriziorte 

deeimal e 

binario 

INPUT A 

135 

10000111 

INPUT B 

157 

10011101 

otteniamo: 



OUTPUT C 

■133 

10000101 


Tabella di verità' della funzione AND: 


INPUT A ! INPUT B 


! 


OUTPUT C ! 


0 

0 

1 

•1 


0 

1 

0 

•1 


0 

0 

0 

•1 


OR memorizza in PI il risultato dell'operazione logica 

OR eseguita sulle coppie di bits di PI e P2. La 
tabella di verità' della funzione OR e’ la 
seguente : 


INPUT A ! INPUT B 

i 


OUTPUT C ! 
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XOR 


Se ad esempio eseguiamo l'operazione OR con i due 
numeri 135 e 157 otteniamo! 


descrizione 

dee imale 

binar i o 


INPUT A 

135 

10000111 


INPUT B 

157 

100111*01 


OUTPUT C 

159 

10011111 


(EXCLUSIUE-OR) memorizza in PI 

dell'operazione logica XOR eseguita 
bits di PI e P2. La tabella di 
funzione XOR e' la seguente! 

il risultato 

sulle copp ie di 
verità' della 

! INPUT A ! 

! ; 

INPUT B ! 

j 

OUTPUT C ! 

i 


! ; 

! 0 ! 

i 

0 ! 

! 

0 ! 


! 0 ! 

1 ! 

1 ! 


! 1 ! 

0 ! 

1 ! 


! 1 ! 

| ! 

•1 ! 

i 

0 ! 

j 


Eseguendo ad 
numeri 135 e 

esempio l'operazione 

157 otteniamo: 

XOR con i due 

descrizione 

dee imale 

binario 


INPUT A 

135 

10000111 


INPUT B 

157 

10011101 


OUTPUT C 

26 

00011010 
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Per ragioni di chiarezza? negli esempi precedenti? sono 
stati impiegati numeri binari di otto bits? mentre 
l'interprete agisce sui bits delle locazioni PI e P2 dello 
Stack? lavorando perciò' su numeri di sedici bits. 

Mancando nel vocabolario Forth l'utile operatore logico 
NOT? non implementato in «mesto interprete? abbiamo 
ritenuto utile fornire la se«iuenza di operazioni necessaria 
per ottenerla su un numero di 8 bits. 

La formula impiegata e' la seguente! 


N ■ 255 - A 


in cui si ha: 

A numero su cui si agisce 

N risultato dell'operazione NOT eseguita su A. 


La tabella di verità' della funzione e' la seguente: 


NOT 


! INPUT A ! OUTPUT B ! 
! ! ! 



L'operazione NOT può' essere aggiunta al vocabolario Forth 
disitando: 


: NOT 255 SWAP 


La funzione cosi' definita eseguirà l'operazione logica NOT 
sul contenuto di PI? memorizzando il risultato sempre in PI 
lasciando cosi' invariata la posizione desìi altri numeri 
nel lo Stack . 
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Capitolo 8 


MANIPOLAZIONI DELLA MEMORIA 


Le istruzioni che nel Forth permettono di operare sul 
contenuto della memoria» sono di due tipi! il primo agisce 
sui singoli bytes» mentre il secondo modifica interi 
blocchi di memoria. Parliamo ora del primo gruppo di 
istruzioni. 


Cai legge il valore del byte il cui indirizzo e' 
contenuto nella posizione PI dello Stack. 

Ad esempio» digitando! 


32768 C3 . <RETURN> 


Verrà' visualizzato il valore 28 contenuto in 
nell'indirizzo 32768. 


3 legge il numero semplice memorizzato all'indirizzo 
contenuto nella posizione PI dello Stack ed in quello 
successivo. 

Digitando ad esempio! 


32768 3 . <RETURN> 


Verrà' visualizzato il numero 8732 semplice 
memorizzato alle locazioni 32768 e 32769. 


23 lesse il numero doppio memorizzato all'indirizzo 
contenuto nella posizione PI dello Stack e nei tre 
success ivi. 

Digitando ad esempio: 


32768 23 D. <RETURN> 
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Verrà' visualizzato il numero doppio 572.282.442 
memorizzato alle locazioni 32768 32769 32770 e 32771. 


C! memorizza all'indirizzo contenuto in PI il valore 
presente in P2. 

Volendo ad esempio memorizzare il numero 154 alla 
locazione 5120 si opererà' nel modo seguente: 


154 5120 C! <RETURN) 


L'istruzione C! agisce su un singolo byte, dunque il 
numero da memorizzare dovrà' essere compreso tra 0 e 
255. 


e' analoga all'istruzione C! con la sola differenza 
che opera su numeri semplici? cioè' su due bytes. 
Vediamone ora un'applicazione: 


15760 5121 ! <RETURN) 


e' stato cosi' memorizzato il numero 15760 alle 
locazioni 5121 e 5122. 


memorizza all'indirizzo contenuto in PI il numero 
doppio contenuta in P2 P3. Ad esempio? volendo 
memorizzare alle locazioni 5123 5124 5125 e 5126 il 
numero doppio 651961? si digiterà’: 


651961. 5123 2! <RETURN) 


MANIPOLAZIONI DI BLOCCHI DI MEMORIA 


Volendo intervenire su un maggior numero di bytes? anziché' 
su 1 2 o 4 come visto sopra? si impiegano le seguenti 
istruzioni. 


CM0VE grazie a questa istruzione e’ possibile spostare il 
contenuto di un blocco di memoria. Viene impiegata 
secondo questo schema: 
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32768 5120 1024 CMOVE < RETURN > 


I I I 

I I I numero di bytes da spostare 

I I 

I I 

I X- - nuova posizione 

I 

I 

I- posizione originaria 


La posizione originaria del blocco da spostare 
dovrà” dunque essere contenuta in P3. la nuova 
posizione in P2 e la lunghezza del blocco in PI. 


FXLL questa istruzione permette di caricare un 
particolare valore in tutti i bytes compresi in un 
blocco di memoria. 


5120 1024 237 FXLL <RETURN> 


I X I--. valore da caricare 

I I 

1 1 

2 2- lunghezza del blocco 

I 

I 

I-posizione iniziale 


L'indirizzo del primo byte del blocco da riempire 
dovrà” essere contenuto in P3r la lunghezza del 
blocco in P2 ed il valore da immettere in PI. 


ERASE cancella un blocco di memoria la cui lunghezza e' 
specificata in PI e il cui indirizzo del primo byte 
in P2. 
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5120 1024 ERASE (RETURN) 


I I 

I I--- lunghezza del blocco 

I 

I 

I- posizione iniziale 


Dopo aver eseguito l'istruzione ERASE* ogni byte del 
blocco di memoria conterrà' il valore 0. 


BLANKS e’ analogo all’istruzione ERASE con la sola 
differenza che carica il valore 32 anziché' 0. 


DUMP permette di visualizzare in codice esadecimale il 
contenuto di un blocco di memoria con la seguente 
procedura: 


32768 32800 DUMP <RETURN) 


I I 

I I- indirizzo finale 

I 

I 

I- indiri zzo inizial e 


In P2 deve essere contenuto l'indirizzo del primo 
byte del blocco da visualizzare e in PI l'indirizzo 
dell'ultimo byte del blocco. 

Sul video vengono rappresentati gli indirizzi in 
codice esadecimale* il contenuto* ancora in codice 
esadecimale* dei quattro bytes successivi e la loro 
rappresentazione in reverse (codice ASCII). 


TYPE permette di visualizzare (secondo il codice ASCII) i 
caratteri corrispondenti ai valori contenuti nei 
bytes di un blocco di memoria. 
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5120 100 TYPE <RETURN> 


I I 

I I— lunghezza del blocco 

I 

I 

I- indirizzo iniziale 


In P2 deve essere contenuto l'indirizzo del primo 
byte del blocco da visualizzare e in PI la lunghezza 
del blocco. 

L'istruzione TYPE visualizza i caratteri 
corrispondenti al contenuto dei bytes impiegando il 
codice ASCII! nel caso incontri i valori 
corrispondenti. non ad un carattere, ma ad un 
comando, «mesto verrà' eseguito. 
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Capitolo 9 


LE VARIABILI E L.E COSTANTI 


L'interprete Forth» oltre a memorizzare dei numeri nello 
Stack» permette l'impiego di variabili e costanti numeriche 
semplici e doppie. 


VARIABILI 

Per assegnare un nome ad una variabile semplice» si 
utilizza 'l'apposita istruzione VARIABLE. Ad esempio» per 
definire la variabile di nome A» assegnandole il valore 
iniziale 2» si seguirà' la seguente procedura: 


2 VARIABLE A <RETURN> 


Come si vede» si e' digitato per primo il valore da 
attribuire alla variabile» seguito poi dalla parola-chiave 
ed infine dal nome. L'interprete Forth ha cosi' assegnato 
il nome A ad una locazione di memoria nella «male e' 
contenuto il valore della variabile stessa. L'indirizzo di 
memoria in cui e' contenuto il valore della variabile può' 
essere caricato nello Stack digitando semplicemente il nome 
della variabile» nel nostro caso A. In PI verrà' cosi' a 
trovarsi il numero della locazione di memoria in cui 
l'interprete ha scritto il valore 2. Per leggere o 
modificare il contenuto di «mesta particolare locazione di 
memoria» si impiegano le due istruzioni 3 e !. Ad esempio» 
disitando: 


A 3 . <RETURN> 


apparirà' sul video il valore 2. Se invece volessimo 
modificare la variabile A» assegnandole ad esempio il 
valore <4» digiteremo: 


6 A ! < RETURN > 


51 



Quanto detto per le variabili semplici» vale anche per 
quelle doppie» che agiscono su numeri doppi ovvero su 
quattro bytes. La sola differenza consiste nel premettere 
alle istruzioni aia' viste il numero 2. 

Definiamo dunque la variabile doppia li) 5 


37. 2VARIABLE B <RETURN> 


Diaitando ora: 


B 23 D. <RETURN) 


verrà' visualizzato il numero 37» valore della variabile B. 
L'istruzione 2! permetterà' invece di modificare il valore 
di B: 


56 B 2! <RETURN) 


Si e' cosi' modificato il valore di B da 37 a 56. 


COSTANTI 

La procedura per definire una costante e' simile a quella 
aia' vista per le variabili. Esempio: 


61 CONSTANT C <RETURN) 


Si e' cosi' assegnato alla costante C il valore 61. Per 
richiamare il valore di C sara' sufficiente digitare il 
nome della costante seguito da <RETURN>: 


C . <RETURN> 


e sul video apparirà' il numero 61» valore attribuito a C. 
Le costanti doppie vengono definite e richiamate in modo 
analogo. Esempio: 


351. 2C0NSTANT E <RETURN> 
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ex per richiamare il valore di Es 

E D. <RETURN) 

che visualizzerà 1 ' il numero 351 assegnalo alla costante E. 
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Capitolo 10 


I CICLI 


In «mesto capitolo presenteremo una delle parti piu' 
importanti del linguaggio: parleremo dei cicli/ cioè' di 
quelle parole che ci permettono di ripetere piu' volte un 
gruppo di istruzioni/ oppure di eseguirle solo se si 
verificano particolari condizioni. Ciò' permette di 
manipolare la sequenza in cui vengono eseguite le 
istruzioni stesse. 


DO ... LOOP 


Il ciclo DO LOOP/ analogo al POR NEXT del Basic/ permette 
di ripetere l'esecuzione di un gruppo di istruzioni per un 
determinato numero di volte. Va impiegato nel seguente 
modo: 


n2 ni DO al LOOP 


dove s 

rei : indica il valore iniziale della variabile 

del ciclo: 

n2 : indica il valore finale della variabile 

del ciclo? 

al : rappresenta il gruppo di istruzioni da 

eseguire un numero di volte uguale a n2 - 
ni. 

La variabile del ciclo impiegata dall'interprete Forth e' 
identificata dal nome I e viene incrementata di 1 ogni 
volta che viene ripetuto il ciclo/ partendo dal valore 
iniziale ni. L'esecuzione del ciclo termina quando la 
variabile I e' maggiore o uguale ad n2. Il valore di I può’ 
essere caricato nello Stack dando semplicemente 
1'ist ruzione I 

Il diagramma di flusso del ciclo DO LOOP e' rappresentato 
in figura 22. 




DO LOOP 


I 

I 

0 

********* 

* * 

* I=n2 * DO 

* # 
********* 

I 

I->1 

I I 

I 0 

I ******* 

I * * 

I * al * 

I * * 

I ******* 

I I 

I I 

I 0 

I ********* 

I * * 

I * I=I'+-1 * 

I * * 

I ********* 

I I 

I I LOOP 

I 0 

I ***** 

I SI * * 

I <•-•••■* Kivi * 

* * 

***** 

I 

I NO 

:t 

o 

our 


Fi 3 , 22 
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Diamo ora un esempio sull'uso del ciclo DO LOOPs 


: CICL01 CR DO I . CR LOOP ", <RETURN) 


L'istruzione CICL01 cosi' definita esegue! 

CR : posiziona il cursore all'inizio della risa 

successiva » 

DO ! apre il ciclo DO LOOP prelevando i limiti 

inferiore ni e superiore n2 dalle posizioni PI e 
P2 dello Stack. 

I : carica nello Stack il valore attuale della 

variabile del ciclo. 

. : visualizza sullo schermo il contenuto della 

posizione PI dello Stack» ovvero il valore attuale 
di I. 

LOOP ! incrementa di "I il valore della variabile di 

ciclo I e ripete l'esecuzione del ciclo fino a che 
I non e' maggiore o usuale al limite superiore n2. 
Una volta terminato il ciclo esegue le eventuali 
istruzioni presenti dopo la parola LOOP. 

Introducendo nel calcolatore l'istruzione CICL01 nel 

seguente modo! 


5 1 ClCLO-1 < RETURN) 


ot t erremo! 

•1 

2 

3 

4 

OK 

Dall'esempio notiamo come il limite superiore n2 sia 
escluso dall'esecuzione. 

E' pure possibile inserire un ciclo DO LOOP all'interno di 
altri cicli. Ad esempio con l'istruzione CICL02 che 
definiamo ora» la parola CICL01 viene eseguita un 
determinato numero di volte. 


! CICL02 CR DO SPACE I . CR 5 1 CICL01 LOOP ", 
<RETURN) 
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L'istruzione CICL02 cosi' introdotta esegue: 

DO s apre il ciclo; 

SPACE s inserisce uno spazio di un carattere 

CICL01 ; manda in esecuzione la parola CICL01 

precedentemente definita; 

LOOP ! chiude il ciclo. 

Introducendo nel calcolatore l'istruzione C1CL.02 nel 
seguente modo: 


4 1 CICL02 <RETURN > 


otterremo: 

•1 

•1 

2 

3 

4 

2 

1 

2 

3 

4 

3 

1 

2 

3 

4 

E' stato cioè' ripetuto il ciclo 1 indicando a destra il 
valore di I del ciclo 2. 


DO ... +LOOP 


Il ciclo DO +LOOP. analogo al DO LOOP, permette di ripetere 
l'esecuzione di un gruppo di istruzioni per un determinato 
numero di volte. specificando pero' il valore 
dell'incremento della variabile di ciclo I. Va impiegato 
nel seguente modo: 
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n2 ni DO al incr +L00P 


dove : 

ni : indica il valore iniziale della variabile 

del ciclo; 

n2 s indica il valore finale della variabile 

del ciclo? 

al ? rappresenta il gruppo di istruzioni da 

eseguire un numero di volte usuale a rt2 
ni ? 

incr s rappresenta l'incremento da attribuire 

alla, variabile 1 del ciclo. Il valore 
dell'incremento può' essere anche negativo. 


1"1 diagramma di flusso di questo ciclo e' analogo a quello 
del ciclo DO LOOP rappresentato in figura 22. 

Diamo ora un esempio sull'impiego del ciclo DO +LOOP? 


s CICL03 CR DO I . OR -2 +LOOP ? <RETURN> 


L'istruzione CICL03 cosi' definita esegue? 

DO ? apre il ciclo? 

-2 ? e' l'incremento assegnato alla variabile di ciclo 

I? 

+LOOP ? chiude il ciclo. 

Utilizzando la parola CICL03 nel modo seguente? 


-10 10 CICL03 <RETURN> 


otterremo? 

10 

8 

6 

4 

2 

0 

-2 

-4 

-6 

-8 

0K 
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E' da notare che, se l'incremento di I e’ negativo, il 
ciclo termina quando la variabile I ha assunto un valore 
minore o usuale al limite n2. 


IF ... THEN 


Il ciclo IF THEN, equivalente all'anàlogo in Basic, esegue 
un gruppo di istruzioni solo se si verifica una particolare 
condizione. 

Viene impiegato nel seguente modo: 


flag IF al THEN a2 


dove : 

s relazione logica? 

: istruzioni eseguite solo se la relazione 
logica e' vera? 

: eventuali istruzioni che vengono esegite 
in ogni caso dopo l'IF THEN. 

II diagramma di flusso del ciclo e' rappresentato in figura 
23. 

Diamo ora un esempio sull'uso dell'istruzione IF THEN: 


flag 

al 

a 2 


: CICL04 CR IF ." CONDIZIONE MERA" THEN CR ." FINE 
; <RETURN) 


dove : 

IF : legge il contenuto della posizione PI 

dello Stack: se e' uguale a 1 (condizione 
vera), esegue al? se il contenuto di PI e' 
invece 0 (condizione falsa), al non viene 
eseguito. In entrambi i casi (condizione 
vera o falsa) viene eseguito a2? 

THEN : separa il gruppo di istruzioni al dalle 
istruzioni del gruppo a2. 
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IF THEN 


I 

I 

V 

***** 

0 * * 

I<-* flas * IF 

I * * 

I ***** 

I I 

I I 1 

I I 

I V 

I ******* 

I * * 

I * al * 

I * * 

I ******* 

I I 

I-->1 THEN 

I 

V 

OUT 


Fi 3. 23 


Utilizzando la parola CICL04 nel modo seguente! 

33= CICLO4 <RETURN) 

ot t erremo s 

CONDIZIONE VERA 
FINEOK 
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Infatti» essendo vero che 3=3» il risultato dell'operazione 
di confronto e' 1» viene su indi eseguito il gruppo di 
istruzioni al» ovvero visualizzata la scritta "condizione 
vera". Quando la condizione logica e' invece falsa» come 
nell'esempio seguente» si avra's 


32= CICL04 <RETURN> 


otterremo! 

FINEOK 


Essendo cioè' la condizione logica falsa» non e' stato 
eseguito il gruppo di istruzioni al» ma solo il gruppo a2. 
In al e a2 possono essere contenute istruzioni di ogni 
tipo» anche cicli IF THEN» purché' completi. 


IF ... ELSE ... THEN 


Differisce dal precedente ciclo IF THEN perche' permette di 
eseguire un gruppo di istruzioni solo se la condizione 
logica precedente l'IF e' falsa. Viene impiegato nel 
seguente modo: 


flas IF al ELSE a2 THEN a3 


dove : 

flas : condizione logica» 

al : istruzioni eseguite solo se la condizione 

logica e' vera» 

a2 : istruzioni eseguite solo se la condizione 

logica e' falsa» 

a3 : eventuali istruzioni che vengono eseguite 

in ogni caso dopo l'IF THEN. 


Il diagramma di flusso del ciclo e' rappresentato in figura 
24. 
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IF ELSE THEN 


1 

I <- 

I 

I 

I 

V 

xxxxxxx 
x x 

X al * 
x x 

xxxxxxx 
I 
I 

V 


0 

->! 

I 

I 

I 

V 

xxxxxxx 

X X 

X a2 # 
x x 

xxxxxxx 
I 
I 
M 


I 

I 

V 

xxxxx 

X X 

x flas x 
x x 

xxxxx 


ELSE 


->I<- 

I 

I 

V 


OUT 


IF 


THEN 


Fig. 24 


Diamo ora un esempio sull'uso dell'istruzione IF ELSE THEN: 


s CICL05 CR IF ." CONDIZIONE MERA" ELSE ." 

CONDIZIONE FALSA" THEN CR FINE" f <RETURN> 


dove: 

IF : legge il contenuto della posizione PI 

dello Stack: se e’ uguale a 1 (condizione 
vera)» esegue al? se il contenuto di PI e' 
invece 0 (condizione falsa)» viene eseguito 
a2. In entrambi i casi (condizione vera o 
falsa) viene eseguito a3. 
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ELSE 


s separa il stupro di istruzioni al dalle 
istruzioni del gruppo a2. 

THEN s separa il gruppo di istruzioni a2 dalle 
istruzioni del gruppo a3. 

Utilizzando la parola CICL05 nel modo seguente: 


33= CICL05 <RETURN> 


otterremo! 

CONDIZIONE VERA 
FINEOK 

Utilizzandola invece nel modo seguente: 


32= CICL05 <RETURN> 


otterremo! 

CONDIZIONE FALSA 
FINEOK 


BEGIN ... AGAIN 


Il ciclo BEGIN AGAIN ripete continuamente l'esecuzione di 
un gruppo di istruzioni senza permettere l'uscita dal ciclo 
stesso. Il ciclo e' cosi' strutturato: 


BEGIN al AGAIN 


dove! 

BEGIN : apre il ciclo! 

al : gruppo di istruzioni ripetue durante. il 
ciclo: 

AGAIN ! chiude il ciclo. 



Nella figura 25 e' rappresentato il diagramma di 
ciclo BEGIN AGAIN. 


BEGIN AGAIN 

I 

I 

I 

I->1 BEGIN 

I I 

I V 

I ******* 

1 * * 

I * al * 

I * * 

I ******* 

1 I 

I I AGAIN 

I V 

I<- 


Forniamo di seguito un esempio sull’uso del ci 
AGAIN: 


: CICLOé CR INIZIO” BEGIN CONTINUA 
; <RETURN> 


Dopo averne introdotto la definizione* digitando 
CICL06* verrà' visualizzato sul video: 


CICL06 <RETURN> 

INIZIO 

CONTINUA 

CONTINUA 

CONTINUA 

CONTINUA 


flusso del 


Fis. 25 

ciò BEGIN 

CR AGAIN 

la parola 
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Cioè’ si avra' un'esecuzione continua delle istruzioni al. 
nel caso specifico la visualizzazione della scritta 
CONTINUA. 


BEGIN ... UNTIL 


Ripete continuamente l'esecuzione di un gruppo di 
istruzioni fino a suando non si verifica una particolare 
condizione. Struttura del eidos 


BEGIN al flaa UNTIL a2 


dove s 

BEGIN s apre il ciclo; 

al s gruppo di istruzioni eseguite nel ciclo; 

flag s operazione logica che da D o 1 a seconda 
che il risultato sia vero o falso; 

UNTIL s legge il contenuto di PIs se e' 0 ripete il 
ciclo; se invece e’ 1 esce dal ciclo stesso; 
a2 s istruzioni che vengono eseguite dopo 
l'use ita dal ciclo. 


Il diagramma di flusso del ciclo viene rappresentato nella 
figura 26. 

Forniamo un esempio sull'uso del ciclo BEGIN UNTIL; 
introdotta la parola CICL07r inizierà' un ciclo che sara' 
interrotto solo premendo il tasto <E>. 


s CICL07 BEGIN KEY 69 - UNTIL CR ." FINE" ; 
<RETURN> 


dove ; 

BEGIN s apre il ciclo; 

KEY s attende che venga premuto un tasto e carica 
nello Stack il valore corrispondente secondo 
i1 codice ASCII ; 

69 s e' il valore corrispondente al tasto <E> 
secondo il codice ASCII; 
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* confronta il valore caricato nello Stack 
dall'istruzione KEY con il numero 69» 
caricando in PI i1 valore 1 oppure 0 a 
seconda che la condizione sia vera o falsa. 
UNTIL s lesse il contenuto di PI » se e' 0 ripete il 
ciclo» se e' 1 esce dal ciclo. 


Disitando dunsue la parola CICL07» otterremo! 


CICL07 <RETURN> 
e» premendo <E> 

FINEOK 


BEGIN UNTIL 


I 

I 

I->1 BEGIN 

I I 

I V 

I ******* 

I * * 

I * al * 

I * * 

I ******* 

I I 

I I 

I V 

I ***** 

IO* * 

I< * flas * UNTIL 

* * 

***** 

I 

I 1 

I 

V 


OUT 


Fis. 26 
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BEGIN 


UHILE 


REPEAT 


Il ciclo BEGIN WHILE REPEAT e' simile al BEGIN UNTIL con la 
differenza che non esamina il flas alla fine del ciclo? ma 
prima della parola UHILE. La sua confisurazione e' la 
seguente: 


BEGIN al flas UHILE a2 REPEAT a3 


dove: 

BEGIN : apre il ciclo: 

al : gruppo di istruzioni eseguite nella prima 
parte del ciclo: 

flag : condizione logica: 

UHILE : esamina il flas uscendo dal ciclo se e' 
falso: 

a2 : secondo gruppo di istruzioni del ciclo: 

REPEAT : chiude il ciclo: 

a3 : gruppo di istruzioni eseguite dopo l'uscita 
dal ciclo. 


La figura 27 rappresenta il diagramma di flusso del ciclo. 

Diamo di seguito un esempio di impiego del ciclo sopra 
visto: 

: C8 ." COME VA ?" BEGIN KEY 66 = UHILE CR ." VA 
BENE" REPEAT CR ." VA MALE" : <RETURN) 


dove : 

BEGIN : apre il ciclo: 

UHILE : legge il contenuto di Pi: se e' 1 
(condizione falsa)» continua il ciclo: se e' 
0 (condizione vera)» esce dal ciclo. 

REPEAT: chiude il ciclo: 

Utilizzando la parola C8 otterremo» premendo il tasto (B>» 
la scritta VA BENE: premendo un sualsiasi altro tasto 
apparirà' invece la scritta VA MALE. Infatti: 
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BEGIN WHILE REPEAT 


I 

I 

I->1 BEGIN 

I I 

I V 

I ******* 

I * * 

I * al * 

I * * 

I ******* 

I I 

I I 

I V 

I ***** 

I * * 0 

I * flag *->1 WHILE 

1**1 

I ***** I 

III 
I II I 

IMI 
I ******* I 

1**1 
I * a2 * I 
1**1 
I ******* I 

I I I 

I I I 

I y I REPEAT 

I <- I 


I 

I 

I 

V 

I <- 

I 

I 

V 

OUT 


Fis. 27 
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C8 <RETURN> 


si avra’ 

COME VA ? 

e> premendo osn i volta <B> 

VA BENE 
VA BENE 
VA BENE 

premendo invece un altro tasto* apparirà' 
VA MALEOK 


70 



Capitolo 11 


METODO DI PROGRAMMAZIONE DEL F'ORTH 


Dopo aver presentato nei precedenti capitoli le basi per 
poter prosr animar e in Forth* forniamo ora alcuni 
significativi programmi in grado di chiarire meglio le 
funzioni e l'impiego dei concetti appresi. Abbiamo 
realizato dei programmi sulla gestione di stringhe* uso per 
cui il Forth si presta particolarmente* viste le sue 
caratteristiche di velocita' e potenza. 


MEMORIZZAZIONE DI STRINGHE 

Il primo programma* cui e' stato attribuito il nome IN** 
permette di immettere delle stringhe alfanuroeriche in una 
particolare zona di memoria scelta dal prosrammatore. 
Seguirà'* dopo il listato del programma* la spiegazione del 
suo funzionamento e della sua struttura. Esso va impiegato 
nel seguente modo: verrà' prima immesso l'indirizzo della 
locazione di memoria in cui inizierà' la memorizzazione 
della stringa* seguirà' poi la parola IN* e <RETURN>. Il 
calcolatore sara' cosi' pronto a ricevere la stringa 
direttamente da tastiera. Il <RETURN> finale segnerà' la 
fine della stringa stessa. 


LISTATO DEL PROGRAMMA IN* 


100 MARIABLE LM <RETURN) 

0 MARIABLE T <RETURN> 

0 MARIABLE P <RETURN> 

: L? P 3 T 3 < IF ELSE DROP 13 DUP P 3 C! 1 P +! THEN 
* <RETURN> 

: IN* CR DUP P ! LM 3 + T ! BEGIN KEY DUP EMIT DUP P a ! 1 
P +! L? 13 = UNTIL ; <RETURN> 


71 




DIAGRAMMA DI FLUSSO DEL PROGRAMMA IN* 


*********** 

* * 

* P=P1 * 

IN*->* * 1 

* T=P1+LM * 

* * 

*********** 

I 

I->x 

I V 

I ******* 

I * * 

I * KEY * 2 

I * * 

I ******* 

I I 

I V 

I ***************************** 

I * * 

I * EMIT PI * 

I * * 

I * scrive PI all’indirizzo P * 3 

I * * 

I * P=P+1 * 

I * * 

I ***************************** 

I I 

I I 

I 0 ***************************** 

I * * * * 

I * * NO * scrive 13 all'indirizzo P * 

I * p<T *->* * 

I * * * P=P+1 * 

I * * 4 * * 

I I ***************************** 

I SI I I 

! I <-1 5 

I V 

I ********* 

I * * **** 

I * contenuto * * * 

I NO * * SI * * 

I-<-* indirizzo * >* FINE * 

* * * * 

* P = 13 *6 * * 


* * **** 


********* 


Fis. 28 
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Dal diagramma di flusso di figura 28 vediamo la struttura 
del programma IN*. 

Nel blocco numero 1» il valore letto nella posizione PI 
dello Stack viene assegnato alla variabile P. alla 
variabile T viene invece assegnato il valore di P sommato a 
quello di LM. lunghezza massima della stringa. Il valore di 
P rappresenta cosi' l'indirizzo a cui viene iniziata la 
memorizzazione della stringa, mentre T quello entro il 
quale la stringa termina. Il numero massimo dei caratteri 
che possono essere contenuti nella stringa, definito da LM. 
può' essere modificato a piacere compatibilmente alla 
disponibilità' di memoria. 

Con il blocco 2 inizia il ciclo di input dei caratteri da 
tastiera: l'istruzione KEY provoca un blocco del sistema 
fino alla digitazione di un carattere. il cui 
corrispondente valore in codice ASCII verrà' memorizzato 
nella posizione PI dello Stack. 

Il blocco 3 ha il compito di visualizzare sullo schermo il 
carattere disitato e di memorizzarne il valore 
corrispondente all'indirizzo P. Infine incrementa il 
valore P di uno. 

Nel blocco 4 viene verificato se P e' minore di T. cioè' se 
e' stato raggiunto il numero massimo di caratteri della 
stringa. Nel caso P non sia minore di T. si passa al blocco 
5. dove viene simulata la digitazione del tasto (RETURN), 
caricando il valore corrispendente (13) all'indirizzo P e 
incrementando poi P di uno. 

Nel blocco 6 viene letto il contenuto dell'indirizzo P: se 
e' diverso da 13 si ricomincia il ciclo di input dal 
blocco 2. Se e' uguale a 13 si esce dal ciclo. 

Per rendere piu’ semplice il programma. esso e' stato 
spezzato in due parti: la prima. costituita dai blocchi 4 
e 5. e' contenuta nella parola L?» la seconda, costituita 
dagli altri blocchi, si trova nella parola IN$. 

Prima di immettere queste due parole sono state definite 
le variabili utilizzate. assegnando loro i valori 
iniziali. 

L'istruzione L? e’ costituita da un ciclo IF ELSE THEN il 
cui flas e' dato dal confronto tra i valori di P e di Tì il 
blocco 6 corrisponde alle istruzioni comprese tra ELSE e 
THEN. 

La parola IN*, dopo aver eseguito le operazioni del blocco 
1» inizia un ciclo BEGIN UNTIL che esegue i blocchi 2 e 3. 
la parola L? e il blocco 6 (che fornisce il flas per la 
prosecuzione del ciclo). 
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VISUALIZZAZIONE DI STRINGHE 


Il secondo programmar che prende il nome di OUT*. 
permette di visualizzare delle stringhe alfanumeriche 
memorizzate in una particolare zona di memoria. Il 
programma OUT$. da usarsi in abbinamento al precedente IN*, 
va impiegato nel seguente modo! verrà' immesso l'indirizzo 
della prima locazione di memoria in cui e' memorizzata la 
stringa» seguirà' poi la parola OUT* e <RETURN>. Il 
calcolatore visualizzerà' la stringa richiesta. 

Diamo la spiegazione del funzionamento e della struttura 
del programma dopo il seguente listato. 


LISTATO DEL PROGRAMMA OUT« 


! F? P 3 T 3 < IF ELSE DROP 13 1 P +! THEN » <RETURN> 

: OUT* CR DUP P ! LM 3 + T ! BEGIN P 3 C3 DUP EMIT 1 P +! 
F? 13 = UNTIL ! <R£TURN> 


Dal diagramma di flusso di figura 29 vediamo la struttura 
del programma OUT*. 

Nel blocco numero Ir il valore letto nella posizione PI 
dello Stack viene assegnato alla variabile P» alla 
variabile T viene invece assegnato il valore di P sommato a 
quello di LM. lunghezza massima della stringa. Il valore di 
P rappresenta cosi' l'indirizzo a cui viene iniziata la 
lettura della stringa, mentre T quello entro il quale la 
stringa termina. 

Con il blocco 2 inizia il ciclo di visualizzazione della 
stringa* l’istruzione EMIT visualizza il carattere 
corrispondente al numero letto all'indirizzo P. 
incrementando poi P di uno. 

Nel blocco 3 viene verificato se P e' minore di T. cioè’ se 
e' stata superata la lunghezza massima della stringa. Nel 
caso P non sia minore di T. si passa al blocco 4. dove 
viene caricato il numero 13 (corrispondente. in codice 
ASCII, al tasto <RETURN>). e incrementato P di uno. 

Nel blocco 5 viene letto il contenuto della posizione PI 
dello Stack! se il numero letto e’ diverso da 13. si 
ricomincia il ciclo di lettura dal blocco 2. Se invece e' 
usuale a 13 si esce dal ciclo. 
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DIAGRAMMA DI FLUSSO DEL PROGRAMMA OUT$ 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


OUT* 

I 

y 


*********** 


* * 

* p=p-i * 

» # i 

* T=P-1+LM * 

* * 


*********** 

I 

I 

y 

************************* 


* * 

* lesse all'indirizzo P * 

* * 

# EMIT PI * 2 

* * 

* P=P+1 * 

* * 
************************* 

I 

I 

y ********* 

* * * * 

* * NO * PI“13 * 

* P<T *->* * 

* * * P=P+-1 * 

* * 3 * * 

I ********* 

I I 

SI u - x 

V 

* * 

* * 

NO * * 

-<-* PI =13 * 5 

* * 


* * 


**** 


* * 
I 

SI I- 


* * 

* * 

>* FINE * 
* * 

* * 


**** 






Il programma e' composto dalle due parole F? e OUT$s la 
prima e' costituita dai blocchi 3 e 4r mentre la seconda 
dai restanti blocchi. 

L’istruzione F? e' costituita da un ciclo IF ELSE THEN il 
cui flag e' dato dal confronto tra i valori di P e di T" il 
blocco S corrisponde alle istruzioni comprese tra ELSE e 
THEN. 

La parola OUT$» dopo aver eseguito le operazioni del blocco 
Ir inizia un ciclo BEGIN UNTIL. che esegue il blocco 2> la 
parola F? e il blocco 5 (che fornisce il flag per la 
prosecuzione del ciclo). 


CONFRONTO DI STRINGHE 


Questo programmar di nome =$r permette di confrontare due 
stringhe alfanumeriche e di verificare se sono usuali! va 
usato insieme ai due precedenti programmi IN$ e OUT$ e deve 
essere impiegato nel seguente modo: si introducono sii 
indirizzi delle due stringhe da confrontare! seguirà' poi 
la parola =$ e (RETURN). Verranno cosi' confrontate le due 
stringhe che iniziano agli indirizzi immessi. Ultimato il 
confronto verrà' posto» nella posizione PI dello Stack? uno 
0 o un 1 a seconda che le due stringhe siano diverse o 
usuai i. 

Diamo la spiegazione del funzionamento e della struttura 
del programma dopo il seguente listato. 


LISTATO DEL PROGRAMMA =* 


0 VARIABLE *1 (RETURN) 

0 VARIABLE *2 (RETURN) 

s E? 2DUP = *2 3 T 3 ( AND 1 SWAP 2SWAP 13 = SWAP 13 = OR 1 
SWAP - AND - f (RETURN) 

s sub *1 a ca *2 a ca e? i *1 +! i $2 +! t <return> 

: =* $1 ! DUP *2 ! LM a + T ! BEGIN SUB UNTIL *1 a 1- C3 $2 

a 1- ca = ! (RETURN) 
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DIAGRAMMA DI FLUSSO DEL PROGRAMMA =$ 


I- 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I< 


*•1 

*2 


=% — 


*********** 

* * 

* $1=P1 * 

* * 

->* $2=P2 * 1 

* * 

* T=*2+LM * 

* * 

*********** 

I 

->! 

0 

*********** 

* * 

* $1 = $2 * 

* * 

I<-* *1 =13 *2 =13 * 2 

I * * 

I * $2 <T * 

I * * 

1 *********** 

I I 

SI I NO I 

V V 
********************* 

* * 

* *1=*1+1 e *2=*2+1 * 3 
« * 

********************* 

I I 

SI I NO I 

V V 

- ************* ******** 

* * NO * * 

* *1-1 = *2-1 *->* p-1=0 *—>1 

* * * * I 

************* ******** 5 I 


**** 

* * 


I 

I 

M 


******** I 
SI * * I 

--_>* p 1 - 1 *—>i 

* * 

******** 6 


I->« FINE * 


* * 
**** 


= valore del byte di 
= valore del bYte di 


indiri zzo *1 
indirizzo $2 


Fis. 30 


77 






Dal diagramma di flusso di fisura 30 vediamo la struttura 
del programma =$. 

Nel blocco numero 1» alla variabile $1 viene assegnato il 
valore letto nella posizione PI dello Stack» alla variabile 
$2 quello letto nella posizione P2. T viene posto usuale a 
$2 piu’ LM. Le variabili *1 e $2 rappresentano gli 

indirizzi a cui iniziano le stringhe che devono essere 
confrontate» mentre T quello entro il quale la stringa $2 
termina. 

Con il blocco 2 inizia il ciclo di confronto delle 
stringhe! vengono confrontati i caratteri memorizzati agli 
indirizzi *1 e $2 e si verifica che $2 sia minore di T 
(ovvero che non sia stata superata la lunghezza massima di 
*2). Viene inoltre verificato» confrontando i caratteri 
letti con il numero 13 (valore corrispondente» in codice 
ASCII» al (RETURN))» se si e' siunti alla fine di una 
delle due stringhe. 

Si passa quindi al blocco 3» dove *1 e $2 vengono 
incrementati di 1. Se i confronti effettuati nel blocco 2 
sono tutti positivi» si ritornerà' al blocco 2» in caso 
contrario si passera' al blocco 4. 

Quest'ultimo blocco confronta tra loro i contenuti dei 
bytes di indirizzo *1-1 e *2-1. Se sono diversi si passa al 
blocco 5» se» al contrario» sono usuali al 6. 

Il blocco 5 carica uno 0 nella posizione PI dello Stack» 
mentre il blocco 6 carica un 1. 

Il programma =* e' costituito dalle tre parole E? SUB e =* 
e contiene inoltre la definizione delle variabili *1 e *2. 
La parola E? corrisponde al blocco 2. Confronta il 
contenuta dei bytes di indirizzo *1 e *2» verifica se *2 e' 
minore di T ed esegue l'operazione AND tra i due risultati. 
Inoltre vengono confrontati i contenuti dei bytes *1 e $2 
con il valore 13 eseguendo poi l'operazione logica OR tra i 
due risultati. La sequenza < 1 SWAP - > esegue un NOT sul 
risultato dell'operazione OR precedente. Viene poi 
effettuata un'operazione AND tra il risultato del NOT e 
quello del primo AND. Sul risultato viene in fine 
effettuata un'operazione NOT. Questa sequenza di operazioni 
può' essere scritta matematicamente nel seguente modo: 

NOT(( *1 = *2 )AND(*2<T))AND(NOT(( *1 =13)0R( *2 =13))) 

Nella parola SUB viene eseguita l'istruzione E? ed il 
blocco 3. 

La parola =$» dopo aver svolto le operazioni del blocco 1 » 
inizia un ciclo BESIN UNTIl. in cui viene eseguita la parola 
SUB. 
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Il flas di mesto ciclo e' costituito dalla parola E?* ed 
e' 0 solo se i confronti effettuati nel blocco 2 sono tutti 
positivi* ovvero se i due caratteri di indirizzo $1 e $2 
sono usuali* il valore di *2 e’ minore di T ed i bytes di 
indirizzo *1 e $2 sono diversi da 13. 

Quando il flas e” 1 si esce dal ciclo BEGIN UNTIL e si 
esesuono i blocchi 4 5 e 6* effettuando di nuovo il 
confronto tra sii ultimi due caratteri letti dalle 
strinshe. Se i due caratteri sono usuali* sisnifica che si 
e' usciti dal ciclo perche' e' stato ultimato il confronto 
tra le due strinshe e queste sono risultate usuali. Se i 
due caratteri confrontati sono diversi sisnifica invece che 
le strinshe sono diverse. 


MISURA DELLE STRINGHE 


Questo prosramma* di nome L$* permette di contare i 
caratteri alfanumerici di una strinsa* e va usato insieme 
ai precedenti programmi. Si impiesa nel seguente modo! si 
introduce l'indirizzo della strinsa da misurare* sesuira' 
poi la parola L$ e <RETURN>. Verranno cosi' contati i 
caratteri della strinsa che inizia all'indirizzo immesso. 
Ultimato il contessio* verrà' posta nella posizione PI 
dello Stack la lunshezza della strinsa. 


Diamo ora 
sp iesazione 


il listato del prosramma. Seguiranno la 
del suo funzionamento e della sua struttura. 


LISTATO DEL PROGRAMMA L* 


s L$ DUP $1 ! 1- T ! BEGIN 1 T +! T 3 03 13 = UNTIL T 3 *1 
3 - ; <RETURN> 


Dal diasramma di flusso di fisura 31 viene illustrata la 
struttura del prosramma L$. 

Nel blocco numero 1* alla variabile $1 viene assesnato il 
valore letto nella posizione PI dello Stack! la variabile T 
viene posta usuale al valore < $1-1 >. La variabile $1 

rappresenta l'inizio della strinsa* mentre T quello in cui 
la strinsa termina. 

Con il blocco 2 inizia il ciclo di misurazione della 
strinsa incrementando di 1 la variabile T. 
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DIAGRAMMA DI FLUSSO DEL PROGRAMMA L$ 


L* 

I 

I 

0 

********** 

* * 

* V1=P'1 * 

* * 1 

* T=*2-1 * 

* * 

********** 

I 

I->1 

I 0 

I ********* 

I * * 

I * T=T+-1 * 2 

I * * 

I ********* 

I I 

I I 

I V 

I ******* 

I NO * * 

I <-* T =13 * 3 

* * 

******* 

I 

SI I 

V 

*********** 

* * 

* pi=r-$i * 4 

* * 

*********** 

i 

i 

v 

***** 

* * 

* * 

* FINE * 

* * 

* * 

***** 

Fig. 31 
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Il blocco 3 confronta il contenuto del byte di indirizzo T 
con il valore 13. Se i valori sono diversi» si ritorna al 
blocco 2" se al contrario sono usuali» si passa al blocco 
4 . 

Quest’ultimo blocco pone nella posizione PI dello Stack il 
risultato dell’operazione < T~$1 >» corrispondente alla 
lunshezza della strinsa. 

La parola L$» dopo aver esesuito le operazioni del blocco 
1» inizia un ciclo BEGIN UNTIL in cui esegue il blocco 2. 
Il flas di questo ciclo e' costituito dal blocco 3. Viene 
infine esesuita l'operazione di differenza del blocco 4» 
che da come risultato la lunshezza della strinsa. 


RICERCA DI STRINGHE 


In molti casi si presenta la necessita’» in prosrammi ad 
esempio di tipo sestionale o di archivio» di ricercare 
all'interno di una serie di dati una particolare strinsa 
alfanumerica. In questo programma vi presentiamo una 
possibile soluzione del problema! nel caso particolare» 
sfruttando il fatto che nel Forth e' possibile definire 
una strinsa la cui lunshezza e’ limitata solo dalla 
quantità’ di memoria disponibile» e' stata creata 
un'unica strinsa nella quale memorizzare i dati» dando la 
possibilità' di ricercarli poi separatamente. Il problema 
e’ stato ricondotto» in sostanza» alla ricerca di una 
strinsa (dato da ricercare) all’interno di un'altra (dati 
sia’ memorizzati). 

Il prosramma e’ stato chiamato R$» e va impiesato nel 
seguente modo: vanno immessi prima l'indirizzo a cui 
inizia la strinsa contenente i dati» poi l'indirizzo della 
strinsa da ricercare. Infine si disita l'istruzione R$ e 
(RETURN). Dopo che la ricerca e' stata ultimata» nella 
posizione PI dello Stack verrà' posto un 1 se la strinsa e' 
stata trovata» oppure uno 0 nel caso contrario. Se in PI si 
trova un 1» la variabile T2 conterrà' l'indirizzo dove 
inizia» all'interno della strinsa-dati» una strinsa usuale 
a quella cercata. 

Diamo ora il listato del prosramma. Sesuiranno la 
spiesazione del suo funzionamento e della sua struttura. 
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LISTATO DEL PROGRAMMA R$ 


0 VARIABLE TI <RETURN> 

0 VARIABLE T2 <RETURN) 

0 VARIABLE LL <RETURN> 
s S4 1 *1 +! 1 *2 +! 5 <RETURN> 

s S3 BEGIN $1 3 C3 DUP $2 3 C8 = SWAP 13 = 1 SWAP - AND 
WHILE S4 REPEAT ; (RETURN > 

: S2 T'1 3 $1 ! T2 3 $2 ! S3 *1 3 C3 13 = ? < RETURN > 

S SI DUP T2 ! DUP L* + LL ! TI ! t <RETURN) 

: R* S'1 BEGIN S2 1 SWAP - T2 3 LL 3 < AND WHILE 1 T2 +! 
REPEAT S2 ! <RETURN> 


Dal diagramma di flusso di fi aura 32 viene illustrata la 
struttura del programma R*. 

Per ragioni di chiarezza il diagramma di flusso e' stato 
diviso in due parti di cui una* che nello schema prende il 
nome di A <fis. 33)* viene ripetuta due volte. Il blocco A 
agisce in mesto modo: la stringa da ricercare (che 
abbrevieremo con SR)* viene confrontata con la strinsa-dati 
(SD)* partendo dall'inizio delle stringhe. Il primo 
carattere di SR viene confrontato con il primo di SD. Se 
sono uguali* verranno confrontati i secondi due e cosi' via 
fino a che o viene trovato un carattere diverso o e' 
terminata la stringa SR. Questo confronto viene effettuato 
dal blocco A nel seguente modo: 

come vediamo dalla figura 33* nel blocco 4 viene posto 
♦•1«=T1 e *2=T2. T'1 e T2 contengono sii indirizzi a cui 
iniziano le due stringhe. 

I due blocchi successivi (numeri 5 e 6)* si occupano* 
tramite un ciclo* del confronto tra le due stringhe: dal 
blocco 6* se i due caratteri di indirizzo $1 e $2 sono 
usuali e se in *1 non e' presente il numero 13 
(corrispondente in codice ASCII al carattere (RETURN))* si 
passa al blocco 5* dove $1 e $2 vengono incrementati di 1. 
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DIAGRAMMA DI FLUSSO DEL PROGRAMMA R$ 


**************** 


* * 

* T2=P1 * 

* * 

R* ->* LL=T2+L$ < T2) * 

* * 

* T’1=P2 * 

* * 


**************** 


I 

l --->! 

I M 

I ***** 

I * * 

I * A * 

I * * 

I ***** 

I I 

I I 

I V 

I ***** 

*********** * * 

* * SI * NOT * 

* T2-T2+Ì *<-* 

* * 

*********** 2 


* 3 


* T2<LL * 
* * 

***** 

I 

NO I 

V 

***** 

* * 

* A * 

* * 
***** 

I 

I 

V 

***** 

* * 

* * 

* FINE * 

* * 

* * 


***** 





DIAGRAMMA DI FLUSSO DEL BLOCCO A 


A 

I 

I 

I 

V 

********* 


* * 

* *1=T1 * 

* * A 

* $2=T2 * 

* * 
********* 

I 

I 

I->1 

I I 

I V 


*********** ********* 

* * * * 

* $1=$1+1 * SI * $1 = $2 * 

* #<- * * 6 

* *2=$2+1 * * $1 =13 * 


* * 
*********** 5 


* * 

********* 

I 

I 

I NO 

I 

V 

*********** 

* * 

* $1 =13 * 7 

* * 
*********** 


I 

I 

I 

I 

0 

OUT 


Fi a. 33 
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Si ritorna poi di nuovo al blocco 4. Con «mesto ciclo 
vengono dunque confrontate» carattere per caratteret le due 
stringhe SR e SD» fino a quando o viene trovato un 
carattere diverso o la stringa SR e' terminata. Il flas 
presente nel blocco 7 permette di verificare se il 
confronto e' stato ultimato ovvero se le stringhe sono 
uguali. 

Passiamo ora alla figura 32 in cui e' rappresentato il 
diagramma di flusso complessivo. 

Nel blocco 1 vengono letti dallo Stack i valori da 
assegnare alle variabili TI e T2. Nella variabile LL viene 
posto l'indirizzo a cui termina la stringa SD. 

Con i blocchi A» 2 e 3 si esegue il ciclo di ricerca di SR 
in SD. 

Il blocco 3 causa l'uscita dal ciclo nel caso che il flas 
del blocco A sia 1 oppure che la stringa SD sia terminata. 
In caso contrario si passa al blocco 2 dove» incrementando 
T2 di 1» la ricerca di SR in SD verrà' spostata avanti di 
una posizione. 

Terminato il ciclo verrà' posto nello Stack un 1 o uno 0 
(con l'esecuzione del ciclo A)» a seconda che la stringa 
sia o meno stata trovata. La variabile T2 indicherà' la 
posizione in SD dove e' localizzata SR. 

Il blocco A viene eseguito dalla parola S2 che» dopo aver 
svolto le operazioni del blocco 4» richiama la parola S3 
per poi eseguire il flas del blocco 7. 

In S3 viene svolto il blocco 6 tramite un ciclo BEGIN WHILE 
REPEAT ed il blocco 5» richiamando la parola S4 dopo il 
WHILE. 

La parola R$ esegue il blocco 1 richiamando SI» e svolge un 
ciclo BEGIN WHILE REPEAT di ricerca» in cui vengono svolte 
le seguenti operazioni! 

•1 ) esecuzione della parola S2 e del blocco 3 (che fornisce 
il flas per l'uscita dal ciclo)» 

2) esecuzione» dopo il WHILE» del blocco 2» 

3) esecuzione» all'uscita dal ciclo di ricerca» della 
parola S2. 


85 













































Capitolo 12 
COME LAVORA IL FORTH 


Vista l'importanza che presenta nel Forth l'uso e la 
manipolazione diretta da parte del prosrammatore della 
memoria» presentiamo in suesto capitolo la sua mappa ed 
ulteriori istruzioni per agire su di essa. 

Come vediamo dalla mappa di memoria di figura 34» 
possedendo il cartridse del Forth un’espansione di memoria 
RAM di 3K » il sistema si riconfigura spostando la mappa 
schermo all'indirizzo 4096 (esadecimale 1000) e la mappa 
colore all’indirizzo 37888 (esa. 9400). I 3K di espansione 
RAM si posizionano dall'indirizzo 1024 (esa. 0400) 
al 1'indirizzo 4095 (esa. 0FFF)» mentre sii 8K di espansione 
ROM dall'indirizzo 40960 (esa. A000) all’indirizzo 49151 
(esa. BFFF). 

L'interprete Forth memorizza la definizione delle nuove 
parole introdotte all'indirizzo contenuto nella variabile 
DP» corrispondente all'indirizzo del primo byte libero dopo 
il vocabolario. Al momento dell'accensione DP assume il 
valore 4806. Definendo una nuova parola l'interprete Forth 
altera opportunamente il valore di DP» che può' essere 
letto con l'istruzione HERE o modificato con l'istruzione 
ALL0T nel seguente modo: 

n ALL0T (RETURN) 

dove n e' il numero semplice con segno che verrà' sommato a 
DP. E' cosi' possibile memorizzare la definizione di una 
parola in una particolare zona della memoria o lasciare 
delle locazioni di memoria libere all'interno del 
vocabolario creato dal prosrammatore. Queste zone di 
memoria possono» ad esempio» essere utilizzate per 
memorizzare dei dati o delle stringhe che verranno salvate 
su nastro o su disco insieme al vocabolario stesso. 

La zona di memoria normalmente utilizzata per la 
memorizzazione dei programmi va dall'indirizzo 4806 fino 
alla fine della RAM utente che» nella configurazione base» 
termina all’indirizzo 8191 (esa. 0FFF).Nella zona di 
memoria compresa tra sii indirizzi 1024 (esa. 0400) e 4095 
(esa. 0FFF) e' generalmente possibile operare con le 
istruzioni viste nel capitolo 8 sulla manipolazione della 
memoria» senza provocare un blocco del sistema. 
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MAPPA DI MEMORIA 


Indiri 

zz i 

Funzione 

dee. 

esa. 


0 

0000 

1K RAM area di lavoro per Sistema Operativo e 

1023 

03FF 

Forth 

1024 

0400 

3K RAM espansione contenuta nel cartridae 

4095 

OFFF 


4096 

1000 

0.5K RAM mappa schermo 

4607 

01FF 


4608 

0200 

3.5K RAM utente 

8191 

1FFF 


8192 

2000 

8K RAM/ROM espansione 

16383 

3FFF 


16384 

4000 

8K RAM/ROM espansione 

24575 

5FFF 


24576 

6000 

8K RAM/ROM espansione 

32767 

7FFF 


32768 

8000 

4K ROM mappa caratteri 

36863 

8FFF 


36864 

9000 

1K RAM Input/Output 0 

37877 

93FF 


37888 

9400 

0.5K RAM mappa colore 

38399 

95FF 


38400 

9600 

0.5K RAM 

38911 

97FF 


38912 

9800 

1K RAM Input/Output 2 

38935 

9BFF 


38936 

9C00 

1K RAM Input/Output 3 

40959 

9FFF 


40960 

AFFF 

8K ROM interprete Forth 

49151 

BFFF 


49512 

COOO 

8K ROM interprete Basic 

57343 

DFFF 


57344 

EOOO 

6K ROM sistema operativo 

65535 

FFFF 

Fia. 34 
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Esaminiamo ora come vengono memorizzate le definizioni 
delle nuove parole introdotte dal programmatore. 

Nell'indirizzo DP (che corrisponde all'indirizzo nfa della 
nuova parola)» all'introduzione di una nuova parola verrà' 
memorizzato un numero binario indicante la lunghezza del 
nome assegnato alla parola stessa. 

Nei bytes successivi viene memorizzato: 

1) il nome della parola (tramite il codice ASCII), 
utilizzando un byte per ogni lettera: 

2) l’indirizzo nfa relativo alla parola precedentemente 
definita» utilizzando due bytes (il cui indirizzo prende il 
nome di lfa>* 

3) il codice relativo all'istruzione introdotta utilizzando 
due bytes (il cui indirizzo si chiama cfa>» 

4) la definizione della parola introdotta (a partire 
dall'indirizzo di nome pfa)» memorizzando come numeri 
semplici gli indirizzi nfa relativi alle parole che la 
definiscono» 

5) un numero semplice indicante la fine della definizione 
della parola. 


Nello schema seguente illustriamo il modo con cui e' 
possibile» partendo dal nome della parola» risalire agli 
indirizzi di definizione. 


istruzione ’ (fornisce l'indirizzo pfa): 

' nome parola (RETURN) 

istruzione NFA (fornisce l'indirizzo nfa): 
indirizzo pfa NFA (RETURN) 

istruzione LFA (fornisce l’indirizzo lfa): 
indirizzo pfa LFA (RETURN) 

istruzione CFA (fornisce l'indirizzo cfa): 
indirizzo pfa CFA (RETURN) 


8? 



istruzione PFA 
indirizzo nfa 

istruzione ID. 
indirizzo nfa 


(fornisce l'indirizzo pfa>! 
PFA (RETURN) 


(fornisce il nome dell'istruzione) 
ID. (RETURN) 
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Capitolo 13 


IL SUONO 


Per la Bestione del suono l'interprete Forth utilizzar nel 
VIC 20 r sii stessi registri che vengono impiegati 
dal 1'interprete Basic. 

Diamo sui di seguito gli indirizzi delle locazioni di 
memoria da modificare per la generazione dei suoni! 


indirizzi valore funzione 


36874 


36875 


36876 


36877 


36878 


X valore di X compreso tra 128 e 255! 

seleziona la frequenza del primo 

oscillatore sonoro! 

X valore di X compreso tra 128 e 255! 

seleziona la frequenza del secondo 

oscillatore sonoro! 

X valore di X compreso tra 128 e 255! 

seleziona la frequenza del terzo 

oscillatore sonoro: 

X valore di X compreso tra 128 e 255! 

seleziona la frequenza del quarto 

oscillatore dedicato alla generazione di 
rumore bianco! 

V valore di V compreso tra 0 e 15: 
seleziona il volume sonoro. 


Ponendo nei registri dei particolari vaiorii e' possibile 
ottenere su ogni oscillatore tre scale musicali sfasate 
(tra un oscillatore e l’altro) di un'ottava. I valori da 
introdurre sono i seguenti! 
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Valore 

Nota 

I 

T 

Valore 

Nota 

135 

DO 

X 

I 

215 

SOL 

143 

DO# 

I 

217 

SOL# 

147 

RE 

I 

219 

LA 

151 

RE# 

I 

221 

LA# 

159 

MI 

I 

223 

SI 

163 

FA 

I 

225 

DO 

167 

FA# 

I 

227 

DO# 

175 

SOL 

I 

228 

RE 

179 

SOL# 

I 

229 

RE# 

183 

LA 

I 

231 

MI 

187 

LA# 

I 

232 

FA 

191 

SI 

I 

233 

FA# 

195 

DO 

I 

235 

SOL 

199 

DO# 

I 

236 

SOL# 

201 

RE 

I 

237 

LA 

203 

RE# 

I 

238 

LA# 

207 

MI 

I 

239 

SI 

209 

FA 

I 

240 

DO 

212 

FA# 

I 

241 

DO# 


Per chiarire l'uso dei registri del 
seguito un programma che permette di 
musicale introdotto dal programmatore, 
un nome al brano musicale e averlo di 
intervenire su tre parametri! volume» 
osei1 latore. 


suono forniamo di 
suonare un motivo 
Dopo aver assegnato 
sitato» e' possibile 
durata delle note ed 


PROGRAMMA MUSICALE 


■15 VARIABLE VOLUME <RETURN) 

2 VARIABLE OSCILLATORE <RETURN> 

1000 VARIABLE DURATA <RETURN> 

0 VARIABLE POSIZIONE <RETURN) 

! NOTA VOLUME 3 36878 C! POSIZIONE 3 C3 DUP 36873 

OSCILLATORE 3 + C! <RETURN> DURATA 3 0 DO LOOP 4 0 DO 0 
36874 I + C! LOOP DURATA 3 10 / 0 DO LOOP ! <RETURN) 
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: SUONO POSIZIONE ! BEGIN CR ?<SHIFT CRSR_>" 3 0 DO KEY 
DUP EMIT LOOP <RETURN> -48 - SWAP 48 - IO * + SWAP 48 - 
100 * + POSIZIONE 8 C! NOTA <RETURN> 1 POSIZIONE +! 0 = 
7TERMINAL OR UNTIL i <RETURN> 

: SUONA POSIZIONE ! BEGIN NOTA DUP CR . 1 POSIZIONE +! 0 = 
7TERMINAL OR UNTIL f <RETURN> 

: NOME CR HERE 50 + DUP CONSTANT i <RETURN> 

: SCRIVO DUP 8000 DP ! SUONO POSIZIONE S> 7 990 - ALLOT t 
<RETURN> 


Dopo aver memorizzato il programma* si opererà' nel 
seguente modo: 


1) si assegnerà' un nome al motivo musicale da introdurre* 
digitando la parola NOME ed il nome scelto seguiti da 
<RETURN> * 


esemp i o 


NOME FRAMARTINO <RETURN) 

2) si introdurrà' la parola SCRIVO seguita da <RETURN>* 

SCRIVO <RETURN> 

3) il calcolatore sara' ora in attesa dell'introduzione dei 
numeri corrispondenti alle note: all'apparire di <?> si 
digiteranno uno di seguito all'altro i numeri scelti* 

4) dopo l'ultima nota del brano musicale si disitera' il 
numero 000 indicante la fine del motivo* 

5) il brano potrà' ora essere suonato disitandone il nome 
seguito da SUONA e <RETURN)* 

FRAMARTINO SUONA <RETURN> 

6) per alterare le variabili VOLUME* OSCILLATORE e DURATA 
si impiegherà’ la normale procedura per agire su di esse. 
Se ad esempio vogliamo suonare il motivetto "Fra Martino" 
dovremo agire in <iuesto modo: 
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NOME FRAMARTINO <RETURN> 


SCRIVO <RETURN> 

225 228 231 225 225 228 231 225 231 232 235 231 232 

235 235 237 235 232 231 225 235 237 235 232 231 225 

228 235 225 228 235 225 OOO 

FRAMARTINO SUONA <RETURN) 


Il calcolatore suonerà' cosi' le note del motivetto 
introdotto. I motivi musicali vengono automaticamente 
salvati su cassetta o su disco al momento della 
reaistrazione del programma. Sono a disposizione per 
l'introduzione delle note 3 Kbytes circa di memoria, 
corrispondenti a ben 3000 note memorizzab i 1 i . 


DESCRIZIONE DEL PROGRAMMA 

Come oani programma in Forth. anche mesto e’ strutturato 
in una serie di parole che definiscono le varie operazioni 
concatenandosi l'una con l’altra. Diamo sui di seguito la 
spiegazione di ognuna di sueste parole. 


NOTA 1) Legge la variabile VOLUME e ne assegna il valore 
al registro 368785 

2> legge il byte all'indirizzo corrispondente al 
valore della variabile POSIZIONE, caricandone il 
contenuto in uno dei 4 registri degli oscillatori 

3) esegue un ciclo DO LOOP da 0 al valore indicato 
dalla variabile DURATA, determinando la durata 
della nota stessa5 

4) esegue un ciclo DO LOOP per azzerare i 4 
osei1latori5 

5) con un ultimo ciclo DO LOOP determina la pausa 
tra una nota e l'altra5 

SUONO 1) assegna alla variabile POSIZIONE il valore 
contenuto nella posizione PI dello Stack; 

2) apre un ciclo BEGIN UNTIL5 

3) attende la digitazione del numero di 3 cifre 
corrispondente alla nota e lo memorizza 
all'indirizzo indicato dalla variabile POSIZIONE; 
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4) esegue la parola NOTA ed incrementa il valore 
della variabile POSIZIONE di 15 

5) chiude il ciclo BEGIN UNTIL. L.a condizione di 
uscita e' Fornita dalla digitazione o del numero 
000 o del tasto <RUN/ST0P>. 

SUONA 1) assegna alla variabile POSIZIONE il valore 
contenuto nello Stack? 

2) apre un ciclo BEGIN UNTIL? 

3) esegue la parola NOTA visualizzando il valore 
della nota suonata? 

4) incrementa il valore della variabile POSIZIONE 
di 1 ? 

5) chiude il ciclo BEGIN UNTIL. La condizione di 
uscita e' Fornita o dal numero 000 o dalla 
digitazione del tasto <RUN/ST0P>. 

NOME T> con la parola MERE legge l'indirizzo del primo 
byte libero dopo il vocabolario? 

2) deFinisce una costante assegnandole il valore 
letto tramite HERE ed il nome del motivo musicale? 

SCRIVO 1) posiziona la Fine del vocabolario all'indirizzo 
8000 agendo sulla variabile DP? 

2) esegue la parola SUONO? 

3) ri posiziona» tramite la parola ALLOT* la Fine 
del vocabolario dopo l'ultima nota del brano 
musicale introdotto. 
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Capitolo 14 


LA GRAFICA 


Grazie alla sua elevata velocita' di elaborazione» il Forth 
si presta anche per applicazioni di tipo grafico. Nel 
seguente programma vi diamo un esempio di come si possa 
realizzare una- pagina grafica di 120 per 136 punti» utile 
per visualizzare» ad esempio» delle funzioni matematiche o 
dei grafici. Sono inoltre presenti nel programma delle 
istruzioni che permettono di sovrapporre diverse funzioni» 
visualizzarle in reverse e di ritornare alla pagina video 
senza perdere i grafici. 


GRAFICA 120*136 

s DAR VARIABLE ? <RETURN> 

0 UAR S <RETURN> 

0 VAR X <RETURN> 

0 DAR Y <RETURN> 

0 DAR V <RETURN> 

0 VAR C <RETURN) 

: PI 5120 2050 0 FILL 15 36866 C! 34 36867 C! 205 36869 C! 

; <RETURN) 

: P2 ." <CLR >" 256 0 00 ." A" LOOP ? <RETURN) 

: P3 255 0 DO I I 4096 + C! LOOP 23 36879 C! ? <RETURN) 

s P4 5120 Y 3 8 / 120 * + X 8 8 / 8 * + Y 3 + Y 3 8 / 8 * - 
C ! ", (RETURN) 


2200 ALLO! (RETURN) 




s P5 2 .7 X 3 - X 3 8 / 8 * + -1 DO 2 * LOOP 4 / V ! ? 

<RETURN) 

s pò u a c a ca or c a ci ? <return> 

: P7 Y a 0 < Y a 135 > OR IF ELSE P4 P5 P6 THEN ! <RETURN> 

s P8 X a 0 < X 3 119 > OR IF ELSE P7 THEN ! <RETURN> 

: PLOT S 3 0 = IF PI P2 P3 1 S ! P8 ELSE P8 THEN i <RETURN> 

: P 22 36866 C! 46 36867 C! 192 36869 C! 27 36879 C! 0 S ! 

<CLR >" ; <RETURN> 

: G 15 36866 C! 34 36867 C! 205 36869 C! P2 P3 '1S!5 
<RETURN> 

: 0 36879 C3 27 = IF 23 36879 C! ELSE 27 36879 C! THEN ? 
<RETURN> 


Dopo aver memorizzato il programma saranno disponibili le 
seguenti nuove parole: 


PLOT disegna un punto nella posizione data dalle 

variabili semplici X e Y. L'origine degli assi X Y 
e' stata posta nell'angolo in alto a sinistra della 
pagina grafica» La prima volta che viene utilizzata 
l'istruzione PLOT» si ha automaticamente il 
passaggio dalla pagina video a quella grafica. 

P Compie un reset ritornando alla pagina video. 

Eseguendo l'istruzione PLOT dopo la P si provoca la 
cancellazione della pagina grafica. 

G Permette di passare dalla pagina video a quella 

grafica senza cancellare la rappresentazione delle 
funzioni precedentemente disegnate. In questo modo 
e' possibile disegnare una nuova funzione senza 
cancellare quelle già' presenti sulla pagina 
grafica. 

0 Esegue il reverse della pagina grafica permettendo 

di passare da una rappresentazione bianco su nero ad 
una nero su bianco e viceversa. 
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ESEMPI DI RAPPRESENTAZIONE DI FUNZIONI MATEMATICHE 


FI 1 20 

0 

DO I X 

! I 50 

- DUP * 25 

/ 

5 

+ 

Y 

! PLOT 

loop ; 

(RETURN) 








F2 120 

0 

DO I X 

! I 30 

- I 50 - * 

100 

/ 

I 

80 - * 50 

/ 50 + 

Y 

! PLOT 

LOOP i 

(RETURN) 






F3 120 

0 

DO 1 X 

! 120 I 

DUP * 100 

/ 

i 

* 

50 

/ ... Y ! 


PLOT LOOP ? <RETURN) 


. p pi p 2 F3 ? <RETURN) 


Le parole FI F2 F3 ed F permettono la rappresentazione 
rispettivamente delle seguenti funzioni matematiche! 


FI Y=25#(X-50) +5 

F2 Y=(X~30)# (X-50)*(X-80)/5000+50 
3 

F3 Y“=~X /5000+120 

F rappresentazione contemporanea di FI F2 ed F3 


Per visualizzare una delle quattro funzioni e r sufficiente 
digitarne il nome dopo averne» ovviamente» introdotto la 
definizione. 
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SCHEMA A BLOCCHI DEL PROGRAMMA 


PLOT 

I 

0 

* * 


X X 

******************** 

x IF x 

* * 

X X 

SI * INIZIALIZZAZIONE * 

x S™0 x 

-> * * 

X X 

* PAGINA GRAFICA * 

X X 

* * 

X X 

* * * * * * * * * * * * * * * •><• * * * * 

X X 

I 

I 

V 

NO I 

********* 

I 

* * 

I < —. 

...~* S=1 * 

0 

* * 

X X 

********* 

X X 

x IF x 

X X 

NO 

X 0 < X < 119 x- 

.--->.1 

X X 

I 

X X 

I 

X X 

I 

X X 

I 

I 

I 

SI I 

I 

0 

I 

X X 

I 

X X 

I 

x IF X 

0 

X X 

NO I 

X G<Y<128 X- 

.— >I 

X X 

I 

X X 

I 

X X 

I 

X X 

I 

I 

I 

SI I 

I 

0 

I 

************** i **** 

X 

* 0 * * 

x PL0JTAGG10 

* I * * 

X 

*--•->->* FINE * 

x DEL PUNTO 

* * * 

X 

* * * 


************** **** Fi 9. 35 
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XXX 


X X 
X X 

* 0 * 

* x 

x x 

XXX 

1 

1 

I 

V 

X X 
X X 
X IF x 


* * NO 

«368/9 ca ». - .- 

.>1 

« « 

I 

* =27 * 

I 

* * 

I 

# # 

I 

I 

I 

SI I 

I 

I 

I 

0 

V 

*********** 

*********** 

* * 

* * 

* 23= * 

« 27= * 

« * 

* * 

* 36879 C ! * 

« 36879 C ! * 

* « 

« * 

a*##***##** 

***«*#**#*x 

I 

I 

I 

I 

I 

I 

I *#** 

I 

I * 

« I 

I * 

* I 

I -># FINE 

«<~~~I 

« 

*■ 

* 

« 

*#*# 



•101 



DESCRIZIONE DEL PROGRAMMA 


Trattandosi di un programma di grafica» ricordiamo come sia 
necessario definire una nuova mappa caratteri in zona RAM. 
Sara' cosi' possibile ottenere dei disegni creando di volta 
in volta i caratteri grafici opportuni. 

Diamo sui di seguito la funzione di ognuna delle parole 
utilizzat e. 


OAR corrisponde alla parola OARIABLE già' implementata 
ne 11 ' i nterprete . E' stata definita in guanto» essendo 
piu' breve a disitarsi» rende pìu' agevole la 
definizione delle variabili. 

S E' una variabile semplice utilizzata dall'istruzione 

PLOT. Il suo valore iniziale e' 0 ma viene modificato 
in 1 dalle istruzioni PLOT e G e riportato a 0 dalla 
P. L'istruzione PLOT esegue la reinizializzazione 
della pagina grafica solo se S=0. 

X E' una variabile semplice che assume il valore della 

ascissa del punto da plottare sul video. 

Y E' una variabile semplice che assume il valore 

dell'ordinata del punto da plottare sul video. 

0 E' una variabile semplice contenente il valore da 

utilizzare per alterare opportunamente il byte di 
indirizzo C della mappa caratteri. 

C E' una variabile semplice contenente l'indirizzo del 

byte della mappa caratteri che deve essere modificato 
per disegnare il punto. 

PI Prepara la zona di memoria per la nuova mappa 

caratteri» azzerando i bytes dall'indirizzo 5120 
all'indirizzo 7170. Inoltre dimensiona lo schermo in 
17 righe per 15 colonne e sposta la mappa caratteri 
all'indirizzo 5120. Questa zona di memoria e' stata 
riservata alla mappa caratteri con l'istruzione 
ALL0T. 

P2 Provoca un CLR sul video e scrive nella mappa video 
la lettera A per 256 volte» in modo da alterare la 
mappa colore. 
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P4 Calcola il valore di C in base a quelli di X e Y. 

P5 Calcola il valore di V in base a quelli di X e Y. 

P6 Compie l'operazione OR tra il contenuto del byte 

all'indirizzo V ed il valore di C» in modo , da 
sovrapporre il punto determinato da C ad eventuali 
altri punti sia' presenti» 

P7 Esegue le parole P4 P5 P6 solo se e' verificata la 

condizione: 0<Y<135 

P8 Esegue l'istruzione P7 solo se e' verificata la 

condizione: 0<X<119 

PLOT Se S=Q effettua la routine di inizializzazione della 
pagina grafica tramite PI P2 P3. Pone poi 3=1 ed 
esegue P8. 

Se S=1 esegue direttamente l'istruzione P8. 

P Permette di passare dalla pagina grafica a quella 

video spostando la mappa caratteri all'indirizzo 
32768. Ridimensiona il video e da' la combinazione di 
colori sfondo-bordo originaria. Pone inoltre S=0 e 

provoca un CLR. 

G Iniziai izza la pagina grafica senza cancellare la 

mappa caratteri» permettendo cosi' il passaggio 
alla pagina grafica precedente» Pone inoltre S~1 in 
modo che» eseguendo successivamente l'istruzione 
PLOT» non venga reinizializzata la pagina grafica» 
perdendo cosi' quanto ivi contenuto. 

0 Se la combinazione colore sfondo-bordo e' 27 la pone 

uguale a 23. In caso contrario la pone usuale a 27. 
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Capitolo 15 


IL COLORE 


All'accensione il video cui e' collegato il MIC 20» 
presenta la seguente combinazione di colori* bianco per lo 
sfondo» azzurro per il bordo e blu per il cursore. 

Analogamente al funzionamento in Basic» e' possibile 
modificare il colore del cursore semplicemente premendo il 
tasto <CTRL> in unione ad uno dei tasti numerici compresi 
tra 1 e 8. Il cursore assumerà' cosi' il colore indicato 
sulla parte frontale del tasto numerico premuto. Sono pure 
utilizzabili i comandi di <RVS 0N> e < RUS 0FF> con 
l'impiego del tasto <CTRL> contemporaneamente al tasto <9> 
o <0>. 

Per modificare la combinazione di colore sfondo-bordo» si 
dovrà' alterare il contenuto della locazione di memoria 
36879. In questo indirizzo si porrà' un numero compreso 
tra 0 e 255» corrispendente ad un numero binario di 8 bits 
con il seguente significato* 


bits 1 2 3 


colore del bordo 


bit 4 


visualizzazione in reverse 


bits 5 6 7 8 * colore dello sfondo 


I numeri immessi nei bits 1 23 oppure 5 678 vengono 

interpretati dal sistema secondo la seguente tabella* 
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COLORE 


nura. decimale 


riunì, binario 


NERO 

0 

DODO 

BIANCO 

1 

0001 

ROSSO 

2 

0010 

AZZURRO 

3 

0011 

VIOLA 

4 

01 00 

VERDE 

5 

01 o-i 

BLU 

6 

OLIO 

GIALLO 

7 

Olii 

ARANCIONE 

8 

1 000 

ARANCIO CHIARO 

9 

1001 

ROSA 

IO 

1010 

CELESTE 

lì 

1011 

VIOLA CHIARO 

•12 

1100 

VERDE CHIARO 

•13 

1101 

BLU CHIARO 

14 

1110 

GIALLO CHIARO 

■15 

•1111 


Impiegando la tabella sopra presentata e' possibile 
calcolare il numero da immettere alla locazione 36879 per 
ottenere la combinazione di colori desiderata. Piu' 
semplicemente si può' utilizzare la seguente tabella 
riassuntiva s 
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BORDO 


SFONDO 

NERO 

BIANCO 

ROSSO 

AZZ. 

VIOLA 

VERDE 

BLU 

GIALLO 

NERO 

8 

9 

IO 

11 

12 

13 

14 

15 

BIANCO 

24 

25 

26 

27 

28 

29 

30 

31 

ROSSO 

40 

41 

42 

43 

44 

45 

46 

47 

AZZURRO 

56 

57 

58 

59 

60 

61 

62 

63 

VIOLA 

72 

73 

74 

75 

76 

77 

78 

79 

VERDE 

88 

89 

90 

91 

92 

93 

94 

95 

BLU 

104 

105 

106 

107 

108 

109 

110 

111 

GIALLO 

120 

■121 

122 

123 

124 

125 

126 

127 

ARANCIONE 

136 

137 

138 

139 

140 

141 

142 

143 

ARANCIOCHIARO 

152 

153 

154 

155 

156 

157 

158 

159 

ROSA 

168 

169 

170 

171 

172 

173 

174 

175 

CELESTE 

■184 

185 

186 

187 

188 

189 

190 

191 

VIOLA CHIARO 

200 

201 

202 

203 

204 

205 

206 

207 

VERDE CHIARO 

216 

217 

218 

219 

220 

221 

222 

223 

BLU CHIARO 

232 

233 

234 

235 

236 

237 

238 

239 

GIALLO CHIARO 

248 

249 

250 

251 

252 

253 

254 

255 
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Appendice A 


MESSAGGI DI ERRORE 


L'interprete Forth segnala sii errori con dei numeri, 
presente appendice ne diamo l'elenco ed una 
sp iesazione. 


1 - Stack vuoto 

2 - Dizionario vuoto (non usato) 

3 - Modo di indirizzamento errato 

4 - Nome sia' definito 

5 -•■ 

6 - Ranse del disco? 

7 -- Stack Pieno 

8 - Errore del disco 

9 -- Valore o indirizzo non di 8 bit 

■10 ~ 

•11 

12 -- Va l or e i 11 es a 1 e 

13 Troppo ampio 

14 -•■ 

15 Datatronic: AB ( c: ) 1982 ecc. 

16 

17 - Comando utilizzabile solo in modo differito 

18 •••• Comando utilizzabile solo in modo immediato 


Nella 

breve 
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19 - Condizione non parificata 

20 - Definizione non terminata 

21 - Definizione protetta 

22 - Impiegare solo in fase di loading 

23 - Fuori dallo schermo impiegato 

24 - Trasfer intento non effettuato 

25 - Troppi fi1es 

26 - File sempre aperto 

27 - File non aperto 

28 - File non trovato 

29 - Selezione non presente 

30 - File non caricato 

31 - File non scaricato 

32 - Perso nome del file 

33 - Illegale numero di selezione 
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Appendice B 


VOCABOLARIO FORIH 


Nella descrizione delle parole-chiave del F 
adottata la seguente simbologia: 

a s blocco di istruzioni 

addr s indirizzo del byte 

b : byte di 8 bits 

c : carattere ASCII 

cccc : serie di caratteri ASCII 

flag : condizione logica (O-falso* 1=vero) 

n : numero semplice con segno 

nss s numero semplice senza segno 

nd s numero doppio con segno 

rtdss : numero doppio senza segno 

ntss : numero triplo senza segno 

pppp : parola-chiave generica 

- • parola-chiave considerata 

Le parole-chiave del vocabolario verranno 
seguendo l'ordine del codice ASCII. 


orth verrà' 


presentate 
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I 


! CSP 


( 


* 


#/ 


*/MOD 


+ 


■f ! 


+ 


+LOOP 


n addr .. 

memorizza n in addr 


memorizza in CSP l'indirizzo della posizione PI 
dello Stack 

.. pppp addr 

fornisce l'indirizzo pfa della parola pppp 
( cccc) 

permette di inserire* nella definizione di una 
parola* dei caratteri che non verranno considerati 
dall'interprete Forth 

n i n 2 ri 3 

esegue il prodotto tra ni e n2 ottenendo ri3 
ni n2 n3 ri4 

esegue il prodotto ni n2* lo divide per ri3 ed 
ottiene n4 

ni n 2 n 3 - n 4 n 5 

esegue il prodotto ni n2* lo divide per n3 ed 
ottiene il quoziente n5 ed il resto n4 

ni n 2 - n 3 

somma ni n2 ottenedo n3 

n addr —.- 

somma n al valore del byte addr 
ni n2 -n3 

assegna ad ni il segno di n2 ottenendo n3 
ni- 

incrementa di ni il valore della variabile 1 del 
ciclo 
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-BCD 


-DUP 


. R 


/ 


/MOD 


0 12 


0< 


ni 


memorizza ni nella zona vocabolario» incrementando 
OP di 2 

n 1 n 2 - ri 3 

sottrae ri2 ad rii ottenendo ri3 
ni .- il 2 

trasforma ni in n2 in base al codice BCD 
n i - ri 1 n i 

duplica ni solo se e' diverso da zero 
n -.- 

visualizza il numero n 
. " c c c c " 

visualizza i caratteri cccc 
ni n2 - 

visualizza ni in modo che l'ultima cifra a destra 
dello stesso sia n2 colonne piu' a destra della 
posizione precedente del cursore 

ni n 2 - ri 3 

ottiene n3 dividendo rii per n2 
ni n 2 - n 3 n A 

divide ni per n2 ottienendo il resto n3 ed il 
quoziente n4 


3-n 

sono quattro costanti corrispondenti ai valori 0 1 
2 3. Vengono cosi' impiegati» per la memorizzazione 
del loro valore nella definizione di una parola» 
solo due bytes anziché' quattro 

n-flas 

ottiene il flas 1 se n e' minore di zero 
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f 1 ag 


0 = 


1 + 


1 + ! 


1 - 


1 - ! 


2<3 


2 + 


2DR0P 


2DUP 


20VER 


n 

ottiene il fals 1 se n e' usuale a zero 
ni-n2 

incrementa di 1 ni ottenendo n2 
addr - 

incrementa di uno il valore del numero semplice 
memorizzato in addr 

ni-n2 

sottrae 1 ad ni ottenendo n2 
addr - 

sottrae 1 al valore del numero semplice memorizzato 
in addr 

nd addr - 

memorizza nd in addr 

addr - nd 

carica nello Stack il numero nd contenuto in addr 
ni .. n2 

incrementa di 2 n1> ot: tendo n2 
ni —. n2 

sottrae 2 ad ni, ottenendo n2 
ndl .- 

toslie dallo Stack nd 

ndl - n di n d 1 

duplica ndl 

ndl nd2 .. ndl nd2 ndl 

duplica ndl lasciando inalterato rtd2 
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2R0T ndl nd2 nd3 - nd2 nd3 ndl 

ruota le posizioni dei tre numeri 

2SWAP ndl nd2 - nd2 ndl 

scambia tra loro le posizioni di ndl e nd2 
2VARIABLE nd - cccc 

definisce una variabile doppia assesnandole il nome 
cccc 

2C0NSTANT nd - cccc 


definisce la costante cccc assesnandole il valore 
nd 


< 


> 


s cccc a 5 

apre la definizione 


vocabolari 

ni n2 - 

ottiene il 

ni n2 - 

ot tiene i1 

ni ri 2 -. 

ottiene i 1 

addr ... 

visualizza 


i Forth 
fi as 

flas 1 se 
f i as 

flas 1 se 
f i as 

flas 1 se 

i1 numero 


di una nuova parola cccc nel 


ni e' minore di n2 


ni e' usuale a n2 


rii e' massi ore di n2 


semplice memorizzato in addr 


7C0MP - 

trasmette un messassio di errore se non si sta" 
immettendo la definizione di una parola 

?CSP 


trasmette un messassio di errore se il valore di 
CSP e' diverso dalla posizione dello Stack 
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?ERROR flas n 


trasmette il messaggio di errore n se i1 flag e' 1 
7PAIRS ni n2 - 

trasmette il messaggio di errore 19 se ni e’ 
diverso da n2 

7TERMINAL-flag 

ottiene il flag 1 solo se e' premuto il tasto 
< RUN/STOP > 

3 addr-n 

carica nello Stack il numero semplice memorizzato 
in addr 

ABORT - 

Vuota lo Stack e reinizializza il sistema senza 
cancellare il vocabolario 

ABS n - nss 

fornisce il valore assoluto di n 

AGA.IN BEG1N a AGAIN 

chiude il ciclo BEG1N senza possibilità' di uscita 
ALLOT n -.— 

incrementa di n il valore della variabile DP 
AND ni n2 .— n3 

esegue l'operazione logica AND sui singoli bits dei 
bytes ni e n2» ottenendo ri3 

B . n -. 

visua 1izza n in sist ema b i nario 
BASE . addr 

variabile che determina la base del sistema 
numerico utilizzato. Inizialmente contiene il 
valore 10 
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BEGIN 


BEGIN al 


pppp 


BL 


BL.ANKS 


C ! 


C, 


ca 


CFA 


CL.OAD 


CLOSE 


CMOOE 


Apre un ciclo che viene chiuso con una delle 
sesuenti parole! 

UNTl'L 

AGAIN 

WHILE a2 REPEAT 
■—.- XX 

costante contenente il codice ASCII corrispondente 
ad uno spazio (numero 32) 


addr n -—. 

riempie una zona di memoria con il valore 32» a 
partire dall'indirizzo addr per n bytes 

b addr .. 

memorizza il valore b in addr 

b .. 

memorizza il valore b nella zona vocabolario 
incrementando DP di uno 

addr . b 

carica nello Stacl< il valore del byte addr 
pfa . -•••• cfa 

trasforma l'indirizzo pfa di una parola nel suo 
corrispondente cfa 

carica dalla cassetta il vocabolario salvato e 
fornisce» se non sono stati riscontrati errori 
nella lettura» un flas 0 

n- 

chiude il file n precedentemente aperto con OPEN 
addr1 addr2 n3 - 

sposta il contenuto di un blocco di memoria di n3 
bytes» dall'indirizzo addrl all'indirizzo addr2 
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COLI) 


provoca un reset: completo del sistema 


?COMP 


trasmette un messaggio di errore se non si sta' 
immettendo la definizione di una parola 

CONSTANT n - cccc 


definisce la costante cccc assegnandole il valore n 


2C0NSTANT nd .cccc 

definisce la costante cccc assegnandole il valore 

nd 


CONTEXT variabile contenente l'indirizzo del primo link. 

Rappresenta cioè' il punto ove l'interprete cerca 
l'ultima istruzione immessa» ovvero l'inizio del 
vocabolario 


CR - 

posiziona il cursore all'inizio della risa 
successiva 

CSAVE -f 

salva su cassetta le parole definite nel 
vocabolario e le variabili» fornendo un flas 1 in 
caso di errore 

CSP -addr 

varlabile uti1izzabi1 e per mernorizzare 1'indirizzo 
corrispondente alla posizione PI dello Stack per 
poter trovare errori di compilazione 

! CSP - 

memorizza in CSP l'indirizzo della posizione PI 
dello Stack 

?CSP - 

trasmette un messaggio di errore se il valore di 
CSP e' diverso dalla posizione dello Stack 
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D+ 


0 + 


D. 


D.R 


DABS 


DECIMAL 


DMINUS 


DO 


DP 


DPL 


DROP 


ndl rid2 -.. nd3 

ottiene nd3 sommando ndl con nd2 
ndi n - n d 2 

ottiene nd2 assegnando a ridi il segno di ri 
n d - 

visualizza il numero nd 
n d n —.- 

scrive nd in modo che l'ultima cifra a destra dello 
stesso sia n colonne piu' a destra della posizione 
precedente del cursore 

nd - ndss 

fornisce il valore assoluto di nd 


seleziona il sistema numerico in base decimale 
assegnando il valore 10 alla variabile BASE 

ndl - nd2 

cambia il segno a ridi ottenendo nd2 
ni n 2 - 

apre un ciclo DO LOOP da ni a n2 
- addr 

variabile contenente l'indirizzo del primo byte 
libero dopo il vocabolario 

- addr 

variabile contenente il numero di cifre a destra 
della virgola nell'ultimo numero doppio introdotto 

n- 

rimuove dallo Stack il numero n 


119 



2DR0P 


DUMP 


DUP 


-DUP 


2DUP 


else: 


EMIT 


END 


END XP' 


ERA SE 


7ERR0R 


nd-1- 

toglie dallo Stack nd 
addrl addr2 - 

visualizza in codice esadecimale e in codice ASCII 
il contenuto della memoria dall'indirizzo addrl 
all'indirizzo addr2 

ni -ni n 1 

duplica il numero ni 

ni - ni ni 

duplica ni solo se e' diverso da zero 

ndl - ridi ridi 

duplica ndl 

IF al ELSE a2 THEN 

segna il termine del blocco di istruzioni al 
(eseguite se il flaa precedente l'IF e' 1) e 
l'inizio del blocco a2 (eseguito se il flaa e' 0) 

n - 

visualizza il carattere ASCII corrispondente al 
numero n 


equivale alla parola-chiave UNTU. 


equivale alla parola-chiave TI-IEN 


addr n . 

azzera il contenuto di n bytes a partire 
dall'indirizzo addr 

flaa n 

trasmette il messaggio di errore n se il flaa e' 1 
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EXECUTE addr 


EXPECT 


FENCE 


FILL 


FIRST 


FORGET 


H. 


HE RE 


HEX 


I 


esegue l'istruzione il cui indirizzo cfa e' usuale 
a addr 

addr n - 


memorizza in addr una stringa alfanumerica di n 
caratteri introdotta da tastiera 


- addr 

•variabile contenente l'indirizzo fino a cui non e' 
possibile operare il FORGET. Può' essere utilizzato 
per proteggere delle zone di vocabolario 


addr n b — 


memorizza il valore b in n bytes a partire 
dall'indirizzo addr 

- n 

costante che fornisce l'indirizzo del primo blocco 
buffer (1024) 

- pppp 

cancella il vocabolario dalla parola pppp in poi 
n - 

visualizza il valore di n in base esadecimale 


- addr 


fornisce l'indirizzo del primo byte libero dopo il 
vocabolario (corrispondente al valore della 
var i ab i 1 e DP ) 


seleziona il sistema numerica in base esadecimale 
assegnando il valore 1 6 alla variabile BASE 


n 


fornisce il valore dell'indice del ciclo DO LOOP 
durante la sua esecuzione 




fornisce il valore del limite superiore del ciclo 
DO LOOP 


ID. 


IF 


LATEST 


LEAVE 


LFA 


L. ITER AL 


LOOP 


+LOOP 


M* 


addr - 


visualizza il nome dell'istruzione il cui indirizzo 
nfa corrisponde ad addr 

flas IF al THEN 

flag IF al ELSE a2 THEN 

esegue il blocco di istruzioni al solo se il flag 
e' 1 ed il blocco a2 solo se il flag e' 0 


-addr 

fornisce l'indirizzo rifa dell'ultima parola 
introdotta 


provoca l'uscita dal ciclo DO LOOP 


addr1 -. addr2 


fornisce l'indirizzo Ifa del 1 ' i st: r uz i one i 1 cui pfa 
e' addr1 

n .. 

memorizzar nella definizione di una parolai il 
numero rir ottenuto come risultato delle istruzioni 
ali nella seguente forma: 
a l L. I TER AL 

IVI n 2 DO al LOOP 

esegue le istruzioni al un numero di volte uguale a 
n1--n2 

ni - 

incrementa di ni il valore della variabile I del 
c i c 1 o 

ni n 2 -—.- nd 


ottiene nd moltiplicando ni per ri2 




rtd2 


M#/ 


M/ 


M/MOD 


MAX 


MIN 


MINUS 


MOD 


*/MOD 


/MOD 


NAME 


ndl n nss 

moltiplica ridi per n e divide il risultato per nss 
ottenendo rid2 

nd ni n2 n3 

divide nd per ni ottenendo il resto n2 ed il 
quoziente n3 

rtdssl nss2 .. nss3 ndss-4 

divide ndssl con nss2 ottenendo il resto nss3 ed il 
quoziente ndss4 

n i n2 n3 

fornisce In nf) fi maggiore dei due numeri ni n2 
ri 1 n 2 - n 3 

fornisce in n3 il minore dei due numeri rii ri2 


n i ~. ri 2 

cambia segno ad ni ottenendo ri2 
ni n2 — ri3 

divide ni per n2 ottenendo il resto ri3 (con lo 
stesso segno di ni) 

n i n 2 n 3 — ri 4 n 5 

esegue il prodotto ni n3, lo divide per n3 ed 
ottiene il quoziente n5 ed il resto ri4 

n 1 n 2 - ri 3 n A 

divide ni per n2 ottienendo il resto n3 ed il 
quoziente n4 

addr n - 

assegna ad un file il nome di lunghezza n 
memorizzato all'indirizzo addr. Da usarsi prima di 
CSAYE CLOAD OPEN 
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NFA 


OPEN 


OR 


OUT 


OVER 


20VER 


7PAIRS 


PFA 


addrl -.— addr2 

trasforma l'indirizzo efa nell'indirizzo rifa 
c or r i sp on den t e 

ni n2 n3 —. flas 

apre il file numero ni sulla periferica n2 per 
eseguire l'operazione di tipo n3.. Viene dato un 
flas 0 se il file e' stato aperto correttamente. 
Prima di eseguire un OPEN e' necessario richiamare 
il nome assegnato al file con l'istruzione NAHE. I 
valori di n3 corrispondono alle seguenti 
periferiches 

0 _ video 

1 _ registratore 

4 _ stampante 

8 _ d isco 

ni n 2 - ri 3 

ottiene n3 eseguendo l'operazione logica OR tra ni 
e n2 

-addr 

variabile indicante il numero totale dei caratteri 
visualizzati dal sistema 

ni n2 .-. ni n2 ni 

duplica il numero ni 

n d 1 n d 2 - n d 1 ri d 2 n d 1 

duplica ndl lasciando inalterato rtd2 

ni n2 - 

trasmette il messaggio di errore 19 se ni e' 
diverso da n2 

addrl -addr2 

converte l'indirizzo rifa nel corrispondente pfa 
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QUERY 


accetta dalla periferica selezionata un Input 
alfanumerico fino ad 80 caratteri (chiuso da 
< RETURN >)» che vengono memorizzati nel buffer 
tastiera. Ciò' permette di interrompere 
l'esecuzione del programma in attesa di un Input 
che verrà' interpretato immediatamente 


fa passare al modo immediato e ritorna il contro,! lo 
al 1'operatore 

. R n 1 n 2 

visualizza ni in modo che l'ultima cifra a destra 
dello stesso sia n2 colonne piu' a destra della 
posizione precedente del cursore 

REPEAT BEGIN al flag WHILE a2 REPEAT 

chiude il ciclo BEGIN UMILE REPEAT» che esegue le 
istruzioni al» esamina il flag (uscendo dal ciclo 
se e' usuale a 0) ed esegue le istruzioni a2» 
rincominciando poi il ciclo. 

ROT ni n2 n3 —. n2 n3 ni 

ruota le posizioni di ni ri2 n3 

2R0T ndl nd2 nd3 -.. nd2 ru13 ndl 

ruota le posizioni dei tre numeri 

S->D n - nd 

trasforma il numero semplice n nell'equivalente 
numero doppio nd 

SP ! - 

vuota lo Stack 

SP3 - addr 

fornisce l'indirizzo della posizione PI dello Stack 
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SPACE - 

invia un carattere spazio alla periferica 
selezionata 

SPACES n - 

invia un numero n di caratteri spazio alla 
periferica selezionata 

SMUDGE - 

permette di eseguire il FORGET sull'ultima 
istruzione introdotta anche se la sua definizione 
e' incompleta o errata 

SP ! - 

vuota lo Stack 

SWAP ni ri 2 - n2 ni 

scambia le posizioni di ni e n2 

2SWAP ridi nd2 ~~.- nd2 ridi 

scambia tra loro le posizioni di ridi e nd2 

7TERMINAL .— flag 

ottiene il flag 1 solo se e' premuto il tasto 
< RUN/STOP> 

TIB - addr 

variabile contenente l'indirizzo dell'inizio del 
buffer tastiera <80 caratteri). Ha il valore 
iniziale 256 

T* ndss nss ntss 

moltiplica ndss per nss ottenendo ntss 

T/ ntss nss ndss 

divide ntss per nss ottenendo il quoziente ndss 
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THEN flas IF al THEN 

flas IF al ELSE a2 THEN 

esegue il blocco di istruzioni al solo se il flas 
e' 1 ed il blocco a2 solo se il flas e' 0 

TOGGLE addr b - 

memorizza in addr il complemento a b del numero 
precedentemente contenuto in addr 

TYPE addr n - 

invia alla periferica selezionata i caratteri ASCII 
corrispondent i al contenuto di n bytes» a partire 
dall'indirizzo addr 

U* nssT nss2 - ndss3 

calcola il valore di ndssS moltiplicando nssl per 
nss2 


U. 


U/ 


nss- 

visualizza il valore di nss 
ndssl nss2 - nss3 nss4 


divide ndssl per nss2 ottenendo il resto nss3 ed il 
quoziente nss4 


UM/* ndssl nss2 nss3 - ndss4 


moltiplica ndssl per nss2x divide il risultato per 
nss3 ottenendo il risultato ndss4 

UNTIL BEGIN al flas UNTIL 

chiude il ciclo aperto da BEGIN che esegue le 
istruzioni al fino a quando il flas non assume il 
valore 0 

UARIABLE n -.- cccc 

definisce una variabile semplice assegnandole il 
nome cccc ed il valore n 
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2VARIABLE nd 


cccc 


definisce una variabile doppia assegnandole il nome 
cccc 


VLIST - 


visualizza l'elenco delle parole-chiave memorizzate 
nel vocabolario. Il tasto <RUN/STOP> interrompe la 
visualizzazione 

WHILE BEGIN al flas WHILE a2 REPEAT 

fa parte del ciclo BEGIN WHILE REPEAT, che esegue 
le istruzioni al» esamina il flas (uscendo dal 
ciclo se e' usuale a 0) ed esegue le istruzioni a2» 
rincominciando poi il ciclo. 

XOR ni n2 - n3 

esegue l'operazione logica EXCLUSIVE-OR tra ni n2 
ottenendo n3 


s pppp al a2 a3 ? 

permette di eseguire in modo 
istruzioni a2» mentre e' in corso 
della parola pppp 


immediato le 
la definizione 
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Appendice C 


MAPPA DI MEMORIA 


Indirizzi Furi z i ori e 

dee. esa. 


0 0000 1K RAM area di lavoro per Sistema Operativo e 

•1023 03FF Far t h 

1024 0400 3I< RAM espansione contenuta nel cartridse 

4095 OFFE 

4096 1000 0.5K RAM mappa schermo 

4607 01FF 

4608 0200 3.5K RAM utente 

8-19-1 1FFF 

8192 2000 8i< RAM/ROM espansione 

16383 3FFF 

■16384 4000 8K RAM/ROM espansione 

24575 5FFF 

24576 6000 8K RAM/ROM espansione 

32767 7FFF 

32768 8000 4K ROM mappa caratteri 

36863 8FFF 

36864 9000 1K RAM Input/Output 0 

37877 93FF 

37888 9400 0.5K RAM mappa colore 

38399 95FF 

38400 9600 0.5K RAM 

38911 97FF 
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38912 

38935 

9800 

9BFF 

1K 

RAM 

Input/Output 2 

38936 

40959 

9000 

9FFF 

1K 

RAM 

Input/Output 3 

40960 

49151 

AFFF 

BFFF 

8K 

ROM 

interprete Forth 

49512 

57343 

CO 00 
DFFF 

8K 

ROM 

interprete Basic 

57344 

65535 

EOOO 

FFFF 

8K 

ROM 

s i st enta operai i vo 
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Appendice D 


COLORI SFONDO-BORDO 


Per modificare la combinazione di colori sfondo-bordo/ si 
dovrà’ alterare il contenuto della locazione di memoria 
36879. In «mesto indirizzo si porrà' un numero compreso tra 
0 e 255 secondo la seguente tabella! 


BORDO 


SFONDO 

NERO 

BIANCO 

ROSSO 

AZZ. 

VIOLA 

VERDE 

BLU i 

GIALLO 

NERO 

8 

9 

10 

11 

12 

13 

14 

15 

BIANCO 

24 

25 

26 

27 

28 

29 

30 

31 

ROSSO 

40 

41 

42 

43 

44 

45 

46 

47 

AZZURRO 

56 

57 

58 

59 

60 

61 

62 

63 

VIOLA 

72 

73 

74 

75 

76 

77 

78 

79 

VERDE 

88 

89 

90 

91 

92 

93 

94 

95 

BLU 

104 

105 

106 

107 

108 

109 

110 

111 

GIALLO 

120 

121 

122 

123 

124 

125 

126 

127 

ARANCIONE 

136 

137 

138 

139 

140 

141 

142 

143 

ARANCIOCHIARO 

152 

153 

154 

155 

156 

157 

158 

159 

ROSA 

168 

169 

170 

171 

172 

173 

174 

175 

CELESTE 

184 

185 

186 

187 

188 

189 

190 

191 

VIOLA CHIARO 

200 

201 

202 

203 

204 

205 

206 

207 

VERDE CHIARO 

216 

217 

218 

219 

220 

221 

222 

223 

BLU CHIARO 

232 

233 

234 

235 

236 

237 

238 

239 

GIALLO CHIARO 

248 

249 

250 

251 

252 

253 

254 

255 
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Appendice E 


IL SUONO 


Indirizzi delle locazioni di memoria da modificare per la 
generazione dei suoni: 


indirizzi vai or e funzione 


36874 X valore di X compreso tra 128 e 255" 

seleziona la frequenza del primo 

osei11at ore sonoro : 

36875 X valore di X compreso tra 128 e 255? 

seleziona la frequenza del secondo 

oscillatore sonoro? 

36876 X valore di X compreso tra 128 e 255? 

seleziona la frequenza del terzo 

oscillatore sonoro ? 

36877 X valore di X compreso tra 128 e 255? 

seleziona la frequenza del quarto 

oscillatore dedicato alla generazione di 
rumore bianco? 

36878 V valore di V compreso tra 0 e 15? 

seleziona il volume sonoro? 


Valori da introdurre per ottenere le note musicali su tre 
ot: t ave : 
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Valore 


Nota 


Nota 


135 

143 

147 

•151 

159 

163 

167 

175 

179 

183 

187 

191 

195 

199 

201 

203 

207 

209 

212 


I Valore 
I 

DO I 215 SOL 

DO# I 217 SOL# 

RE I 219 LA 

RE# I 221 LA# 

MI I 223 SI 

FA I 225 DO 

FA# I 227 DO# 

SOL I 228 RE 

SOL# I 229 RE# 

LA I 231 MI 

LA# I 232 FA 

SI I 233 FA# 

DO I 235 SOL 

DO# I 236 SOL# 

RE I 237 LA 

RE# I 238 LA# 

MI 1 239 SI 

FA I 240 DO 

FA# I 241 DO# 
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Appendice F 


PROGRAMMI 


Forniamo nella prima parte di quest'appendice i listati dei 
principali programmi del libro» nella seconda parte 
presentiamo invece alcuni nuovi programmi con una breve 
sp i esaz i one del loro i hip i ego. 

PRIMA PARTE 

PROGRAMMA IN* 

100 VARI ALILE L.M < RETURN) 

0 VARIABLE T <RETURN> 

0 UARIABLE P <RETURN) 

s L? P 3 T 0 < IF ELSE DROP 13 DUP P 3 C! 1 P +! THEN ; 

<RETURN) 

: IN* CR DUP P ! LM 3 + T ! BEGIN KEY DUP EMIT DUP P 3 ! 1 
P + ! L.? 13 = UNTIL ? <RETURN > 

PROGRAMMA OUT* 

: F? P 3 T 3 < IF ELSE DROP 13 1 P +! THEN ? <RETURN> 

s OUT* CR DUP P ! LM a + T ! BEGIN P a C3 DUP EMIT 1 P +! 
F? 13 = UNTIL ; <RETURN) 
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PROGRAMMA =$ 


D MAR I AB LE *1 (RETURN > 

0 MARIABL.E $2 <RETURN> 

: E? 2DUP « $2 3 T a < AND 1 SWAP 2SWAP 13 = SWAP 13 = OR 1 
SWAP ■- AND - ? <RETURN> 

s sub $1 a ca $2 a ca e? i $1 +! i $2 +• ? <return> 

: *1 ! DUP $2 ! LM a + T ! BEGIN SUB UNTIL $1 3 1- 03 $2 

a 1- C3 = f <RETURN) 

PROGRAMMA L* 

s L$ DUP $1 ! 1~ T ! BEO IN 1 T + ! I a C3 13 = UNTIL. T a $1 
a - ; <RETURN) 

PROGRAMMA R* 

0 MARIABLE TI <RETURN) 

0 MARIABLE T2 <RETURN) 

0 MARIABLE LL (RETURN) 

s S4 1 $1 +! 1 $2 +! ) (RETURN) 

s S3 BEGIN $1 a ca DUP $2 a ca = SWAP 13 ~ 1 SWAP - AND 
WHILE S4 REPEAT ; (RETURN) 

: S2 TI a $1 ! T2 a *2 ! S3 *1 a C3 13 * f (RETURN) 

: SI DUP T2 ! DUP L$ + LL ! TI ! ", (RETURN) 

s R* SI BEGIN S2 1 SWAP - T2 3 LL 3 ( AND WHILE 1 T2 +! 
REPEAT S2 J (RETURN) 
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PROGRAMMA MUSICALE 


•15 VARIABL.E VOLUME <RETURN) 

2 VARIABLE OSCILLATORE <RETURN) 

1000 VARIABLE DURATA <RETURN) 

0 VARIABLE POSIZIONE <RETURN) 

: NOTA VOLUME 3 36878 C! POSIZIONE 8 CS) DUP 36873 

OSCILLATORE 3 + C! <RETURN) DURATA 3 0 DO LOOP 4 0 DO 0 
36874 I + C! LOOP DURATA 3 IO / 0 DO LOOP ; <RETURN) 

: SUONO POSIZIONE ! BEGIN CR ?<SHIFT CRSR...)" 3 0 DO KEY 
DUP EMIT LOOP <RETURN> 48 - SWAP 48 - 10 * + SWAP 48 
•100 * + POSIZIONE 3 C! NOTA <RETURN) ì POSIZIONE +! 0 = 
9TERMINAL OR UNTIL 5 <RETURN> 

: SUONA POSIZIONE ! BEGIN NOTA DUP CR . 1 POSIZIONE +! 0 = 
'•‘TERMINAL OR UNTIL ; <RETURN) 

: NOME CR BERE 50 + DUP CONSTANT t <RETURN) 

: SCRIVO DUP 8000 DP ! SUONO POSIZIONE 3 7990 - ALLOT ? 
<RETURN> 


PROGRAMMA GRAFICA 120*136 

s VAR VARIABLE ! <RETURN) 

0 VAR S <RETURN) 

0 VAR X <RETURN> 

0 VAR Y <RETURN> 

0 VAR V <RETURN> 

0 VAR C <RETURN) 

: PI 5120 2050 0 FILL 15 36866 C! 34 36867 C! 205 36869 C! 
i (RETURN) 

: P2 <CLR >" 256 0 DO A" LOOP ; (RETURN) 
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: P3 255 0 DO I I 4096 + C! LOOP 23 36879 C! ? <RETURN> 

: P4 5120 Y 3 8 / 120 * + X38/8« + Ya + Y38/8*- 
C ! i <RETURN> 

2100 ALLOT <RETURN> 

ì P5 2 7 X 9 - X 8 8 / 8 * + -1 DO 2 » LOOP 4 / V ! ; 
<RETURN> 

: P6 o a c a ca or c a ci ? <return> 

s P7 Y a 0 < Y a 135 > OR IF ELSE P4 P5 P6 THEN ! <RETURN> 

: P8 X a 0 < X a 119 > OR IF ELSE P7 THEN f <RETURN) 

: PLOT S 3 0 = IF PI P2 P3 1 S ! P8 ELSE P8 THEN ! <RETURN> 

: P 22 36866 C! 46 36867 C! 192 36869 C! 27 36879 C! 0 S ! 

<CLR >" ; <RETURN) 

: G 15 36866 C! 34 36867 C! 205 36869 C! P2 P3 1 S ! f 
<RETURN) 

: 0 36879 Ca 27 •- IF 23 36879 C! ELSE 27 36879 C! THEN ? 

<RETURN) 


SECONDA PARTE 


PROGRAMMA RSAVE 


Semplifica la procedura necessaria per salvare un programma 
assegnandogli un nome. Ua impiegato digitando RSAVE 
<RETURN> ed il nome assegnato al programma seguito da 
<RETURN) <la lunghezza del nome non deve superare i 20 
caratteri) 

: RSAVE HERE 20 2DUP EXPECT NAME CSAVE ; <RETURN> 
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PROGRAMMA RLOAD 


Permette di caricare un programma di nome assegnato» 
disitando RLOAD <RETURN> seguito dal nome del programma e 
da <RETURN>. 

: RLOAD HERE 20 2DUP EXPECT NAME CLOAD ? <RETURN> 


PROGRAMMA STACK 


Visualizza i numeri semplici con segno contenuti nelle 
singole posizioni dello Stack. Se nello Stack non e' 
memorizzato alcun valore appare la scritta! 

VUOTO 

Si impiega digitando S seguito da <RETURN>. 

! S OHI FI CRSR_. )TACK " 116 SP3 2+ 2DUP = IF . " VUOTO " 
2DR0P ELSE DUP ROT ROT <RETURN) DO CR I OVER - 2 / 1+ 

P" . I ? <RETURN) BEGIN 7TERMINAL. 1 SWAP - UNTIL 2 t-LOOP 
DROP THEN ! <RETURN> 


PROGRAMMA ELEVAMENTO A POTENZA 


Digitando <RETURN>» il numero semplice con segno 

contenuto nella posizione P2 dello Stack viene elevato 
all'esponente contenuto in PI. Nelle posizioni PI P2 verrà' 
memorizzato il numero doppio con segno risultante. 

: DUP 0 = IF 2DR0P 1. ELSE DUP 1 = IF DROP 0 ELSE OVER 

SUIAP 0 ROT ROT < RETURN ) 1 DO DUP 2SWAP ROT T* DROP ROT 
LOOP DROP THEN THEN ", < RETURN) 


PROGRAMMA RADICE QUADRATA DI UN NUMERO SEMPLICE 


Digitando SOR <RETURN) viene calcolata la radice quadrata 
del numero semplice senza segno contenuto nella posizione 
PI dello Stack. Il risultato viene memorizzato nella 
posizione PI dello Stack come numero semplice. 
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: SOR 0 BEGIN 1+ 2DUP DUP * < UNTIL SWAP DROP 1- 5 (RETURN > 


PROGRAMMA RADICE QUADRATA DI UN NUMERO DOPPIO 


Disitando DSQR <RETURN> viene calcolata la radice quadrata 
del numero doppio senza sesno (minore di 603.979.775) 
contenuto nelle posizioni PI P2 dello Stack. Il risultato 
viene memorizzato nella posizione PI dello Stack come 
numero semplice. 

s DSQR 2 1 BEGIN 20VER 20UER DROP DUP M* DMINIJS D+ SUAP 
DROP 0 < (RETURN) IF 2 / 2DUP - ELSE 2 * 2DUP ->• THEN ROT 
DROP SUAP (RETURN) DUP 0 - UNTIL 2SUAP 2DR0P DROP 1- ? 
(RETURN) 


PROGRAMMA FATTORIALE 


Disitando F e (RETURN) viene calcolato il fattoriale del 
numero semplice contenuto nella posizione PI dello Stack. 
Il numero doppio risultante viene memorizzato nelle 
posizioni PI P2 dello Stack. 


s F DUP 0 SWAP BEGIN DUP 1 ) UMILE 1- DUP 2SUAP ROT T* DROP 
ROT REPEAT DROP ? (RETURN) 
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Appendice G 


FORTH DEL CBM 64 


La versione del Forth sviluppata dalla Datatronic per il 
CliM 64 e' sostanzialmente ansiosa a quella per il MIC 20 
cui si e' fatto riferimento nel libro. Le differenze tra le 
due versioni sono originate quasi esclusivamente dal 
diverso hardware del CBH 64 rispetto al MIC 20 (maggior 
quantità’’ di memoria disponibile»- visualizzazione su 40 
colonne anziché' su 22» differente gestione della grafica e 
del suono» ecc.). 


Le principali differenze tra le due versioni sono! 


1) Possibilità’ di interrompere l'esecuzione di un 

programma premendo contemporaneamente i due tasti 
< RUN/STOP > e <REST0RE>» 

2) Comparsa» dopo 1'interruzione di un programma» della 
scritta < RESTARTED> ? 

3) Diverso ordine di visualizzazione delle parole-chiave 
del vocabolario Forth in seguito alla digitazione 
dell'istruzione ML1ST» 

4) Inizio memoria RAM disponibile all'indirizzo 2289» 

5) 30 Kbytes di memoria RAM disponibili per la 

programmazione. 


Tutti gli 
pagina 90 
successivi 
pecul iari 
modificat i 


esempi ed i programmi presenti 
girano perfettamente anche 
programmi di grafica e musica» 
caratteristiche del MIC 20» 
per il loro impiego sul CBM 64. 


nel libro fino a 
sul CBM 64. I 
sfruttando delle 
dovranno essere 
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?CSP 
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7PAIRS 
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a 
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AGAIN 

ALLOT 
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BASE 

BEGIN 
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VLIST 

WHILE 

XOR 


11 12 13 14 128 
68 85 128 
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128 
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( una guida introduttivo a'*a programmatone assembler attraverso una 
progressione di ev -reta il calcoK3»ore usato ò il Picocomputer che impiega « 
microprocessore Z80 di cui non viene vo utamentè tornita uno descrizione 
generate 

i programmi riportati possono essere toc'‘mente odaftafi od otte sistemi Z80 
o 8080 Di ogni pr gromma viene fornito il listato completo e quindi non 
occorre disporre di assemootori o alto s< ©porti di sviluppo, oltre il Pico stesso 
o piastra equivalente 

Sommorio 

Ssterno PtCOCOMPUTEI? Esercizi ? abe«a delle istruzioni Z80 Standard 
Mubus tastiera e display tecniche ai interfacciamento Scheda CPU 
criteri di pregetto e descrizione doli hardware 
Scheda CPU montaggio e collaudo 
Scheda CPU estensioni Programma monitor 
interfaccia cassette Tecniche di 
interfacciamento su Mubus 

Cod 3300 pog. 138 L 9.000 


GRUPPO 

EDITORIALE 

JACKSON 


PROGRAMMARE IN ASSEMBLER 

di Alain Pmaud 


GRUPPO EDITORIALE JACKSON 

Divisione Libri 


Per ordinare il volume utilizzare l'apposito tagliando inserito in fondo all o riv isto. 
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Per lavorare’ al meglio con il Pet e l’M20 

Paolo e Carlo Pascolo 

IL BASIC DEL PET E DELLM20 


Il personal computer rappresenta oggigiorno, 
oltre che un valido aiuto nel lavoro, anche 
un'irresistibile tentazione. Può capitare, cosi, che 
qualcuno si trovi a disporre di un Commodore o 
di un M 20 Olivetti senza conoscerne appieno 
il linguaggio e le possibilità. Questo volume 
vuol rappresentare proprio un prezioso 
supporlo per chi debba, o voglia imparare a * 
programmare in Basic su questi strumenti M 
di lavoro, gioco o studio: comandi, * 

istruzioni, informazioni, consigli... fino a 
diventare davvero 'padroni' di due dei più 
diffusi Personal Computer. 


226 pagine. Lire 16.000 
Codice 336 D 


Per ordinare il volume 
utilizzare l’apposito tagliando 
inserito in fondo alla rivista 


Per non mandare in tilt il vostro 'cervello 

Rodnay Zaks 

PROIBITO! jrflÈÉ 

O come aver cura di un computer m- / AM,: 


In quanti modi si può rovinare un computer, grande o 
personal che sia? L'autore di questo volume ne elenca 
molti: alcuni dovuti a sbadataggine, altri a troppa 
confidenza con il mezzo, altri ancora a scarsa 
conoscenza dei suoi meccanismi e della loro estrema 
vulnerabilità. C’è, anche, un'intera parte dedicata ai 
sabotaggi da calcolatore: furti, spionaggio 
industriale, distruzione delle informazioni... 

Insomma un libro curioso, ma prezioso, per 
vivere per anni, senza problemi, insieme al 
proprio amico 'cervello' elettronico. 

198 pagine. Lire 14.000 Codice 333 D 
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Una guida pratica, preziosa, aggiornata 

General Electric 

LA SOPPRESSIONE 
DEI TRANSITORI DI TENSIONE 


Un libro che riassume i risultati delle pluriennali ricerche 
effettuate da una delle massime industrie mondiali sulle ) 
cause, gli effetti, la frequenza dei sovraccarichi di 
tensione derivanti dai disturbi atmosferici o da altri 
motivi. Un'opera eminentemente pratica che si propone 
di dare ai tecnici un contributo fattivo alla soluzione di 
questo annoso problema, anche attraverso l'indicazione 
della vasta gamma di dispositivi di protezione che la 
G.E. ha messo a punto sulla scorta dei suoi studi e 
delle esperienze. 

216 pagine. Lire 12.000 Codice 611 A 
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Scrìve, suona, gioca, entusiasma 

Gaetano Marano 

-PROGRAMMI 


E ZXBO CON NUOVA ROM + HARDWARE 

Per le sue qualità e il suo modestissimo prezzo lo ZX 81 della 
Sinclair è il computer più venduto nel mondo. 

Oggi, sempre con una modestissima spesa, si può imparare a 
sfruttare questo eccezionale strumento al limite delle sue 
capacità. Basta scorrere questo libro per scoprire quante cose 
lo ZX 81 può fare con l'aggiunta di alcuni semplici ed 
economici componenti. Ad esempio, tramite un semplice 
circuito musicale può riprodurre 50 note su 4 ottave e, sempre 
grazie a una modifica hardware da poche migliaia di lire, lo 
ZX 81 diventa anche l'unico computer in grado di conferire 
effetti sonori ai giochi inseriti tra i suoi programmi. Ma non è 
tutto. Un'altra novità di quest'opera, preziosa anche per chi 
possiede lo ZX 80 con ROM, è il regalo di alcune tastiere 
disegnate da sovrapporre a quella sensitiva dell'apparecchio, 
per ricavarhe altre, speciali funzioni. 
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Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell’informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall'animazione cinematografica 
e televisiva ai businnes graphics; dalla 

Mauro Salvemini 


progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
aH'argomento, l'opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 


COMPUTER 
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È vero: piccolo è bello! 

Alla scoperta dello 
ZX SPECTRUM Si 


a cura di Rita Bonetti 


ZX Spectrum è l'ultimo nato della famiglia Sinclair. É un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 

Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 

320 pagine. Lire 22.000 Codice 337 B 
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IL BASIC E LA GESTIONE DEI FILE 

Il libro si rivolge in modo particolare a chi gii conosce II Basic e 
desidera poter realizzare programmi che prevedano l'uso di 
file residenti su disco. Dopo aver preso In esame, utilizzando 
numerosi esempi pratici, le particolariti del Microsoft, si pas¬ 
sa alla descrizione delle istruzioni necessarie ad una corretta 
gestione dei file su disco, sia ad accesso dlrettoche sequenzia¬ 
le. Una terza parte del libro è infine interamente dedicala alla 
esposizione dei metodi pratici per l'uso dei file ad accesso 
diretto e dei data base 

Cod. 51SH L. 11 000 Pagg. 164 


SO E8ERCIZI IN BASIC 

Una raccolta completa e progressiva di esercizi riguardanti 
matematica, gestione, ricerca operativa, gioco e statistica 
Ciascun esercizio proposto comporta l'enunciazione e l'analisi 
del problema, la risoluzione mediante flow-chart e commenti, 
cosi come un programma che implementa la soluzione, illu¬ 
strato da semplici esempi rappresentativi. 

Questo metodo mette in grado il lettore di verificare passo 
passo le sue conoscenze e il livello di apprendimento raggiun¬ 
to. 

Cod. 521A L. 13.000 Pagg. 206 



75 PROGRAMMI IN BASIC 
PER IL VOSTRO COMPUTER 

Il volume raccoglie ben 75 programmi originali scritti in un 
Basic generico, utilizzabili, salvo poche e semplici modifiche, 
sulla maggior parte del personal computer In commercio, a 
cassetta come a floppy disk. Per ciascuno, dopo una descrizio¬ 
ne introduttiva, viene fornito It listing e un campione di esecu¬ 
zione. Cosi come sono, i programmi proposti (tutti verificati), 
costituiscono un valido ausilio per chiunque debba risolvere 
problemi di matematica, statistica, finanza o. genericamente, 
di pratica utilità — 

Cod. 551D L. 12.000 Pagg. 196 


GIOCARE IN BASIC 

Nel giochi, il lettore pub ritrovare tutte quelle situazioni reali di 
programmazione che gli saranno indispensabili nella com¬ 
prensione e realizzazione di qualsiasi applicazione interattiva 
del proprio computer, anche le più sofisticate. Questo senza 
annoiarsi, ma entrando da subito all'interno della materia per 
imparare a comprendere il BASIC, il proprio computer e I 
computer in genere 

Cod. S22A L. 20.000 Pagg. 324 
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PROGRAMMI DI MATEMATICA E STATISTICA 

Leggendo questo libro il lettore potrà formarsi quella logica di 
base indispensabile per la risoluzione di problemi di matemati¬ 
ca e statistica. 

Ad ogni programma viene preposta un'esposizione schemati¬ 
ca dei metodo numerico e delle tecniche di programmazione 
utilizzate, il diagramma a blocchi relativo all'algoritmo, il li¬ 
stato (anch'esso ottenuto da calcolatore) in cui tra l'altro ven¬ 
gono specificati il tempo e la quantità di memoria impiegati. 
Cod. S22D L. 16.000 Pagg. 228 


INTRODUZIONE AL PASCAL 

Il volume, incentrato su numerosissimi esempi che verificano 
costantemente l'apprendimento del lettore, insegna a conosce¬ 
re, capire ed usare tutte le particolarità e i vantaggi di questo 
linguaggio. Nel corso della trattazione vengono ampiamente 
utilizzate le tecniche di programmazione strutturata, come 
pure tecniche particolari, quali il trattamento dei file, l'utilizza¬ 
zione della recursivita e il trattamento grafico 
Cod. 516A L. 30.000 Pagg. 484 
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COMPUTER GRAFICA 

Si pud dire che la computer grafica si pone nel contesto più 
generale dei trattamento dell'informazione, avendo individua¬ 
to nell'immagine un contenuto informativo che è possibile 
elaborare. 

Quest'opera, con il suo rigore informativo e scientifico, si pone 
come fondamentale nel carente panorama italiano; inoltre le 
informazioni e gli spunti contenuti nel testo contribuiranno 
certamente alla divulgazione ed alla formazione di idee nuove 
e feconde. 

Cod. 519P L. 29.000 Pagg. 174 
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APPLE II - Guida all uso 



■f <$3S2 


Se possedete un Apple e volete conoscerlo a fon¬ 
do, se volete comprarlo, o se semplicemente vole¬ 
te imparare la sua programmazione, troverete in 
questo libro, tutte le risposte, comprese alcune 
vere “primizie" che vi occorrono per una perfetta 
operatività del sistema. Conoscerete i vari compo¬ 
nenti del sistema e come usarli al meglio. Verrete 
guidati alla programmazione in BASIC e a usare le 
caratteristiche grafiche e sonore del sistema. Im¬ 
parerete a memorizzare su disco sia programmi 
che archivi dati, come ad inserire un programma 
scritto in assembler in uno scritto in BASIC. 

E poi ancora, tutte le istruzioni e funzioni BASIC e 
ben 12 appendici veramente basilari. 
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DhrWoiM Libri 










CEDOLA DI COMMISSIONE LIBRARIA 

Da Inviare a Gruppo Editoriale Jackson - Via Roselllnl, 12 - 20124 Milano 



Inviatemi I seguenti libri: 



□ Pagherò al postino il prezzo indicato + L. 2.000 per contributo fisso spese di spedizione. 

□ Allego assegno n°.di L. 

□ Non abbonato □ Abbonato sconto 20% □ l’Elettronica □ Elettronica Oggi □ Automazione Oggi □ Elektor 

□ Informatica Oggi □ Computerworld □ Bit □ Personal Software □ Strumenti Musicali □ Videogiochi 

Data .Firma . 


CEDOLA DI COMMISSIONE LIBRARIA 

Oa Inviare a Gruppo Editoriale Jackson - Via Roselllnl, 12 - 20124 Milano 


Nome Cognome 


Partita I.V.A. (indispensabile per le aziende) 


SI richiede l’emissione della fattura 


Inviatemi I seguenti libri: 




1 


□ Pagherò al postino il prezzo indicato + L 2.000 per contributo fisso spese di spedizione 


□ Allego assegno n°.di L. 


□ Non abbonato □ Abbonato sconto 20% □ l'Elettronica □ Elettronica Oggi □ Automazione Oggi □ Elektor 

□ Informatica Oggi □ Computerworld □ Bit □ Personal Software □ Strumenti Musicali □ Videogiochi 


Data 


Firma 
















































































L. 11.000 


Cod. 527 B 


ISBN 88-7056-141-0 


Il libro si pone come obiettivo principale quello di spiegare 
la programmazione in Forth, linguaggio che, dopo essersi 
affermato in campo scientifico ed industriale, sta ora dif¬ 
fondendosi anche a livello di personal computer. 

In modo agile e scorrevole vengono spiegati al lettore i 
vantaggi del Forth rispetto ad altri linguaggi: l’elevata velo¬ 
cità di elaborazione (inferiore in molti casi solo del 10 per 
cento rispetto al linguaggio-macchina) e la compattezza 
di programmazione, caratteristiche che rendono il Forth 
estremamente adatto all'impiego in applicazioni in tempo 
reale oppure in campo gestionale. 

Pur svolgendo un discorso generale sul Forth, nel libro 
viene fatto riferimento ad una implementazione del lin¬ 
guaggio disponibile sui computer Commodore VIC 20 e 
CBM 64. Questa versione del Forth, peraltro molto simile a 
quella disponibile per altri personal computer quali, ad 
esempio, lo ZX SPECTRUM, presenta delle differenze mi¬ 
nime rispetto alla versione standard, volute per meglio 
sfruttare le capacità di suono e colore proprie del VIC 20 e 
CBM 64. 

Il libro si sviluppa su due piani: il primo costituisce il 
“manuale" di apprendimento delle regole e dei principi del 
Forth (primi dieci Capitoli ed Appendici A, B); il secondo, 
passando da un discorso generale ad uno specifico, spie¬ 
ga l’uso del Forth con il VIC 20 e CBM 64. 

Arricchiscono infine il libro ben quattordici programmi, dal 
trattamento di stringhe al Programma Musicale, di cui 
viene data una dettagliata spiegazione del funzionamento 
ed il diagramma di flusso. 
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